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Abstract 

In 1968, N. Wirth (Jan. JACM ) published a formal description of PL560, 
a programining language designed specifically for the IBM 360. EL360 has 
an appearance similar to that of Algol, but it provides the facilities of 
a symbolic machine language. Since I968, numerous extensions and 
modifications have been made to the PL560 compiler which was originally 
designed and implemented by N. Wirth and J. Wells. Interface and input- 
output subroutines have been written which allow the use of PL560 under 
OS, DOS, Mrs and Orvyl. 

A formal description of PL360 as it is presently implemented is 
given. The description of the language is followed by sections on the 
use of PL360 under various operating systems, namely OS, DOS and MIS. 
Instructions on how to use the PL560 compiler and PL560 programs in an 
interactive mode under the Orvyl time-sharing monitor are also included. 



Keywords: Compilers 

Computer Languages 

IBM 360 Language Processors 

Interactive Language Processors 



Table of Contents 

1. Introduction, Historical Background and Aims 1 

2. Definition of the Language 3 

1. Terminology, Notation, and Basic Definitions 5 

1. The Processor 3 

2. Relationships k 

3. The Program k 

h. Syntax 5 

5. Syntactic Entities 6 

6. Basic Symbols 7 

2. Data Manipulation Facilities 8 

1. Identifiers 8 

2. Values 9 

3. Register Declarations 10 

k. Cell Declarations 11 

5. Ce2JL Designators 12 

6. Register Assignments 13 

7. Cell Assignments I6 

8. Function Declarations I7 

9. Function Statements I9 

10. Synonym Declarations I9 

11. Segment Base Declarations 21 

3. Control Facilities 22 

1. If Statements 23 

2. Case Statements 2U 

3. While Statements 25 

k. For Statements 25 

5. Blocks 26 

hs CLryh r\ CI+ o-f- cxm oio^" c? 0*7 

7. Procedure Declarations 27 

8. Procedure Statements 29 

3. Examples 30 



11 



h. The Object Code 36 

5. Addressing and Segmentation k2 

1. Program Segmentation 4.5 

2. Data Segmentation it.li. 

6. The PL360 Compiler ^ k^ 

1. The Language Ij-j 

1. Symbol Representation ^5 

2. Standard Identifiers k6 

3. Restriction k6 

h. Standard Procedures k6 



2. 



Input Format li-9 

3. Instructions to the Compiler I1.9 

h. Compiler Listing Output 5I 

5. Error Messages of the Compiler 5I 

f'. Compiler Object Prograjn Outpit , , ^h 

7. Performance 55 

Linkage Conventions 57 

1. Calling External Routines from EL360 57 

2. Requesting Supervisor Services 58 

3. Calling PL360 Procedures from External Routines 59 

Operating System Interface and Configuration Requirements . . . 6I 

1. Register Conventions 61 

2. Subroutine Specifications 62' 

5. Linkage to the Compiler 65 

i) . Configuration Requirements 6k 

Use as an OS Language Processor 65 

1. Data Set Requirements 65 

2. Processing Options 66 

3. Return Code ........................ 67 

^. JCL Statements 67 

5- Library 68 



10. Use as a DOS Language Processor 69 

1. System Configuration Requirements 69 

2. Processing Options 70 

5- JCL Statements 70 

k. DTF Tables 72 

5- Library 75 

11. Use as an MTS Language Processor 76 

1. Data Set Requirements 76 

2. Processing Options 77 

3. MTS Library 77 

k. MTS Commands 77 

12. Use as an OR^/YL Language Processor 78 

1. Using the PL360 Compiler with ORVYL 78 

2. Input -Output Subroutines for Interactive PL56o Programs . . 80 

13. The Run-Time Library 82 

P. Data Manipulation Procedures 8'j- 

ik. Format of PL360 Programs 86 

1. Indentation 86 

2. Spacing 87 

5. Choice of Identifiers 88 

h. Comments 88 

5- Miscellaneous 89 

15. Acknowledgments 90 

16. References 9I 



IV 



1. Introduction 

PLJdO is a programming language designed specifically for the IBM 
System/360 computers. It provides the facilities of a symbolic machine 
language but displays a structure similar to that of Algol. A formal 
description of an earlier version of the language has been published by 
Niklaus Wirth [1] who directed the development of the EL360 language and 
its compiler at the Computer Science Department of Stanford University. 
Although EL360 was originally designed for writing logically self-contained 
programs, subsequent extensions permit communication with separately 
compiled programs. 

An efficient one pass "in core" compiler, written by Niklaus Wirth, 
Joseph W. Wells, Jr. and Edwin Satterthwaite, Jr., which incorporates these 
extensions is available through the IBM Contributed Program Library [2]. 
This compiler runs under the OS operating system and translates PL360 
source code into object modules in the format required by several 36O 
operating systems (OS and MTS for example) . The documentation issued 
with the compiler includes several amendments to the original language 
definition. Further extensions have recently been carried out at the 
University of Newcastle by James Eve. These changes [3^11] were aijned 
primarily at relaxing the linkage constraints on separately compiled 
programs, enabling for example direct communication with programs using 
OS/360 type linkages. The present author has made several modifications 
to the version of the compiler produced by James Eve. These extensions 
have made it possible to run the compiler and compiled programs under DOS 
operating systems. Assembly language subroutines have been written for 
both OS and DOS to facilitate input-output with sequential tape and disk 
files. With the aid of Dick Guertin of Stanford, the author has extended 
the syntax of EL360, primarily to increase programming convenience. We 
have recently written assembly language interfaces to allow interactive 
use of both the PL360 compiler and PL360 programs under the Orvyl time- 
sharing monitor at Stemford. These recent extensions made at Stanford 
have been documented in personal letters, memos or not at all. 

The dispersed nature and inconvenient form of the PL36o documentation 
is an undoubted hindrance to more extensive use of this powerful and 
elegant tool. To remedy this, the language definition and compiler 



description incorporating all changes are given in this manual. For a full 
discussion of the backgro-und underlying the development of EL560 and a 
description of the organization and development of the compdler together 
with some perceptive comments on the 56O Architecture, reference must still 
be made to [1], where the aims of the language are summarized: 

"... it was decided to develop a tool which would: 

1. allow full use of the facilities provided by the 56O hardware, 

2. provide convenience in writing and correcting programs, and 
5. encourage the user to write in a clear and comprehensible 

style . 

As a consequence of 3, it was felt that programs should not be able to 
modify themselves. The language should have the facilities necessary to 
express compiler and supervisor programs, and the programmer should be 
able to determine every detailed machine operation." 

Knowledge of the 560 architecture [h, 5 or 6] is a prerequisite 
for understanding the language definition and some familiarity with the 

cription of the ob^ject code produced by the compiler. 

In writing this manual, the author has drawn heavily upon the 
(anonymous) FL36o Programming Manual published by the University of 
Newcastle upon Tyne, Computing Laboratory [11]. 



2. Definition of the Language 

2.1 Terminology, Notation, and Basic Definitions 

The language is defined in terms of a computer which comprises a 
number of processing units and a finite set of storage elements . Each of 
the storage elements holds a content , also called value . At any given 
time, certain significant relationships may hold between storage elements 
and values . These relationships may be recognized and altered, and new 
values may be created by the processing units. The actions taken by the 
processors are determined by a program . The set of possible programs form 
the language . A program is composed of, ajid can therefore be decomposed 
into elementary constructions according to the rules of a syntax , or grajmaar . 
To each elementary constnict ion corresponds an elementary action specified 
as a semantic rule of the language. The action denoted by a program is 
defined as the sequence of elementary actions corresponding to the elementary 
constructions which are obtained when the program is decomposed (parsed) 
by reading from left to right. 

2.1.1 The Processor 

At any time, the state of the processor is described by a sequence of 
bits called the program status word (PSW) . The status word contains, among 
other information, a pointer to the next instruction to be executed, and a 
quantity which is called the condition code . 

Storage elements are classified into registers and core memory cells, 
simply called cells . Registers are divided into three types according to 
their size and the operations which can be performed on their values. The 
types of registers are: 

a. integer or logical (a sequence of 32 bits)* 

b. real (a sequence of 32 bits), 

c. long real (a sequence of Gh bits) . 

Cells are classified into five types according to their size and the type 
of value which they may contain. A cell may be structiored or simple. The 
tjVTes of simple values and simple cells are: 

a. byte (a sequence of 8 bits = 1 byte), 

b. short integer (a sequence of l6 bits = 2 bytes, interpreted as 
an integer in two's complement binary notation), 



^" integer or logical (a sequence of 32 bits = h bytes, 

interpreted as an integer in two's complement binary notation), 

d. real (a sequence of 32 bits = k bytes, to be interpreted as a 
base-l6 floating-point number) , 

e. long real (a sequence of 6h bits = 8 bytes, to be interpreted as a 
base-l6 floating-point number) . 

The types integer and logical are treated as equivalent in the language, 
and consequently only one of them, namely integer, will be mentioned 
throughout the report. 

2.1.2 Relationships 

The most fundamental relationship is that which holds between a cell 
and its value. It is known as containment ; the cell is said to contain 
the value. 

Another relationship holds between the cells which are the components 
of a structured cell, called an array, and the structured cell itself. It 
is known as subordination . Structured cells are regarded as containing 
the ordered set of the values of the component cells. 

A set of relationships between values is defined by monadic and dyadic 
functions or operations, which the processor is able to evaluate or perform. 
The relationships are defined by mappings between values (or pairs of values) 
known as the operands and values known as the results of the evaluation. 
These mappings are not precisely defined in this report; instead, see [6]. 

2.1.3 The Program 

A program contains declarations and statements. Declarations serve 
to list the cells, registers, procedures, and other quantities which are 
involved in the algorithm described by the program, and to associate names, 
so-called identifiers , with them. Statements specify the operations to be 
performed on these quantities, to which they refer through the use of 
identifiers. 

A program is a sequence of tokens, which are basic symbols, strings 
or comments. Every token is itself a sequence of characters. The following 
conventions are used: 



a. Basic symlDols constitute the basic vocabulary of the language 
(cf. 2.1.6). They are either single characters, or underlined 
letter sequences. 

b. Strings are sequences of characters enclosed in quote marks (") . 

c. Comments are sequences of characters (not containing a semicolon) 
preceded by the basic symbol comment and followed by a semicolon (;) 
It is understood that comments have no effect on the execution 

of a program. 

In order that a sequence of tokens be an executable program, it must be 
constructed according to the rules of the syntax. 

2.1.i4- Syntax 

A sequence of tokens constitutes an instance of a syntactic entity 
(or construct), if that entity can be derived frcm the sequence by one or 
more applications of syntactic substitution rules. In each such application, 
the sequence equal to the right side of the rule is replaced by the symbol 
which is its left side. 

Syatactic entities (cf. 2.1. 5) are denoted by English words enclosed in 
zhe Drackets ( and / . These words describe approximately the nature of 
the syntactic entity, and where these words are used elsewhere in the text, 
they refer to that syntactic entity. For reasons of notational convenience 
and brevity, the script letters (7 , X > ^^^ T are also used in the 
denotation of syntactic entities. They stand as abbreviations for any of 
the following words (or pairs) : 



long real 
real 
int eger 
short integer 
byte 

Syntactic rules are of the form (a) ::= E where (a) is a. syntactic 
entity (called the left side) and i is a finite sequence of tokens and 
syntactic entities (called the right side of the rule) . The notation 

<A) ::= liUgl-'-Un 



a 


X 


long real 


long real 


real 


real 


integer 


integer 


short integer 





is used as an abbreviation for the n syntactic rules 



<a) ::= I, , (a) ::= I^ , ..., (A> ::= i 



n 



If in the denotations of constituents of the rule the script letters <7 , 
yf , or T occur more than once, they must be replaced consistently, or 
possibly according to further rules given in the accanpanying text. As an 
example, the syntactic rule 

(X register) ::= Oc register identifier) 

is an abbreviation for the set of rules 

(long real register) ::= (long real register identifier) 
(integer register) ::= (integer register identifier) 
(real register) ::= (real register identifier) 



2.1.5 Syntactic Entities 



Syntactic Entity 


Section 


(c7 cell assignment) 


2.2.7 


(/? number) 


2.2.2 


(alt ernat i ve c ondit ion ) 


2.5.1 


(arithmetic operator) 


2.2.6 


(block body) 


2.5.5 


(block head) 


2.5.5 


(block) 


2.5.5 


(case clause) 


2.5.2 


(case sequence) 


2.5.2 


(case statement) 


2.5.2 


(character sequence) 


2.2.2 


(combined condition) 


2.5.1 


(compound condition) 


2.5.1 


(condition) 


2.5.1 


(digit) 


2.2.2 


(declaration) 


2.5.5 



(fill value) 
(for clause) 



2.5.i^ 



Syntactic Entity 


Section 


(for statement) 


c:.9.4- 


(format code) 


2.2.8 


(fractional number) 


2.2.2 


(function declaration) 


2.2.8 


(fonction definition) 


2.2.8 


(function identifier) 


2.2.1 


(function designator) 


2.2.9 


(goto statement) 


2.5.6 


(hexadecimal digit) 


2.2.2 


(hexadecimal value) 


2.2.2 


(identifier) 


2.2.1 


(if clause) 


2.5.1 


(if statement) 


2.5.1 


(increment ) 


2.5.i^ 


(index) 


2.2.5 


(instruction code) 


2.2.8 


(integer value identifier) 


2.2.1 



(integer value synonym 
declaration) 



2.2.10 



Syntactic Entity 


Section 


(item) 


2.2.1+ 


iX primary) 


2.2.6 


^ register assignment; 


2.2.6 


i^ register synonym declaration 


) 2.2.10 


iX, register) 


2.2.1 


(label definition) 


2.5.5 


(letter) 


2.2.1 


(limit ) 


2.^.h 


(logical operator) 


2.2.6 


(monadic operator) 


2.2.6 


(parameter) 


2.2.9 


(parameter list) 


2.2.9 


(procedure declaration) 


2.3.7 


(procedure heading) 


2.5.7 


(procedure identifier) 


2.2.1 


(procedure statement) 


2.5.8 


(program) 


2.5.5 


(relation) 


2.5.1 


(repetition list) 


2.2.1+ 


(scale factor) 


2.2.2 


(segment base declaration) 


2.2.11 


(segment base heading) 


2.2.11 


(segment close declaration) 


2.2.11 



Syntactic Entity 


Section 


(separate procedure heading) 


2.3.7 


(shift operator) 


2.2.6 


(simple X register assignment/ 


2.2.-. 


(simple procedure heading) 


2.3.7 


(simple statement) 


2.3.5 


(simple T type) 


2.2.1+ 


(statement) 


2.5.5 


(string) 


2.2.2 


(synonymous cell) 


2.2.10 


(synonymous integer value) 


2.2.10 


(syn cell value) 


2.2.10 


(T cell declaration) 


2.2.1+ 


(T cell designator) 


2.2.5 


(T cell identifier) 


2.2.1 


(T cell synonym declaration) 


2.2.10 


(T primary) 


2.2.6 


(T type) 


2.2.1+ 


(T value) 


2.2.6 


(true part) 


2.5.1 


(imsigned d nimiber) 


2.2.2 


(while clause) 


2.5.5 


(while statement) 


2.3.5 



2.1.6 Basic Symbols 

A|B|c|D|E|F|G!H|l|j!K|L!M|Nlo|pklRls|T!u|v|w!xJY!z| 
ajb|c|d|e|f|g|h|i|j|k|ljm|n|o|p|q|r|s|t|u|v|w|x|yjz| 
0|ll2|5iM5|6l7|8|9l 

+ l-!H/l<hl>h|: = l.l-|;|:l(l)l@l#l'l"U 
and I or j xor j abs j neg \ shll \ shrl \ shla \ shra \ 

if j then \ else j case | of [ while | do \ for \ step j ujit il | 

begin I end I goto comment null] 

int eger \ real \ logical 1 byt e \ charact er | long 1 short | array | 



1 

I 



funct ion | proc edure | regist er \ syn j overflow \ 

segment j base | data ) global | extemal | common | d-uitmiy | close 1 

equate 



2.2 Data Manipulation Facilities 

2.2.1 Identifiers 

(letter) ::= AJBic |d |e|f|g|hIi|j|k|l|m1n1o|p|q|r1s1t |u|v|w|x1y|z| 
a|bjc|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z| 
(identifier) : := (letter)| <identifier)<letter)| (identifier)<diglt ) 
^register) ::= (identifier) 
(T cell identifier) ::= (identifier) 
(procedure identifier) ::- (identifier) 
(function identifier) ::= (identifier) 
(integer value identifier) : := (identifier) 

An identifier is a ?< register^ T cell-^ procedure-^ function-^ 
or integer value identifier, if it has respectively been associated with 
a X register, T cell, procedure, function, or integer value (called 
a quantity) in one of the blocks stirroTinding its occtirrence. This 
association is achieved by an appropriate declaration. The identifier 
is said to designate the associated quantity. If the same identifier 
is associated with more than one quantity, then the considered occurrence 
designates the quantity to which it was associated in the innermost block 
embracing the considered occurrence. In any one block, an identifier 
must be associated with exactly one quantity. In the parse of a program, 
that association determines which of the rules given above applies. 

Any processing computer and operating system can be considered to 
provide an environment in which the program is embedded, and in which some 
identifiers are permanently declared. Some identifiers are assumed to be 
known in every environment; they are called standard identifiers , and are 
listed in the respective paragraphs on declarations. 



Q 



2.2.2 Values 

<digit) ::= 0lll2i3|U|5|6J7|8|9 
(unsigned integer number) ::= (digit )| 

\unsigned integer number /(digit/ 
(unsigned short integer number) : := (imsigned integer n-umber) S 
(fractional number) ::= (integer number) .[ 

(fractional number ) (digit ) 
(scale factor) : := (integer number) 
(unsigned real number) ::= (fractional number )j 

(unsigned integer number )r1 (fractional number)' (scale factor) j 

(unsigned integer number)* (scale factor) 
(unsigned long real ntmiber) : := (fractional number)! J 

(unsigned integer numb er)L| (fractional number )' (scale factor )l| 

(unsigned integer number )• (scale factor)! 
ia mmber) : := (imsigned (j number )l_(tinsigned (J number) 

Integer;, real, and long real numbers are represented in decimal notation. 
The latter two can be followed by a scale factor denoting an Integral power 
of 10 . Ghort integers are distinguished from integers by the letter 3 
following the niimber. In order to denote a negative number, an -unsigned 
number is preceded by the symbol " " .— ' 

(hexadecimal digit) ::= (digit )|a|b|C |d|e|f 
(hexadecimal value) ::= # (hexadecimal digit)] 
(hexadecimal value) (hexadecimal digit) 

A hexadecimal value denotes a sequence of bits. Each hexadecimal digit 
stands for a sequence of four bits defined as follows: 

= 0000 \ = 0100 8 = 1000 C = UOO 

1 - 0001 5 = 0101 9 = 1001 D = 1101 

2 - 0010 6 = 0110 A = 1010 E = mo 

3 = 0011 7 = 0111 B - 1011 F = nil 

(string) ::= "(character sequence)" 

(character sequence) : := (character) [(character sequence) (character) 



*, 



Note that the -underline is used here. The minus sign (-) is used 
only as a dyadic operator — never as part of a number. 



A string is a sequence of characters enclosed in quote marks. The set of 
characters depends on the implementation (cf. 6.1.1). If a quote mark (") 
is to he an element of the sequence, it is represented by a pair of 
consecutive quote marks. 

Examples: "ABC" denotes the sequence ABC 
"A""Z" denotes the sequence A"Z 
..t.tt^ti.,t. denotes the sequence "A" 
(hyte value) ::= "(character)" | ^hexadecimal value) X 
(short integer value) ::= (short integer number) | (hexadecimal value) S 
(integer value) ::= (integer number )| (hexadecimal value)] 

(integer value identifier) 
(real value) ::= (real number) |(hexadecijnal value) E 
(long real value) ::= (long real nimiber) | (hexadecimal value) L 

Examples : 

byte values 

short integer values: 

integer values: 

real values: 

long real values: 3.li<-159265559L #ij-E00000000000001L 

Note: If hexadecimal values are used in conjunction with arithmetic 
operators in a program, they must be considered as the sequence of bits which 
constitutes the computer's representation of the number on which the operator 
is applied. Hexadecimal values followed by the letter R or L may be used 
to denote numbers in unnorraalized floating-point representation [h,^,6]. 

2.2.3 Register Declarations 

The System/360 processor has I6 registers which contain integer 
numbers and are said to be of type integer (or logical ) . They are designated 
by the following standard register identifiers (cf. 2.2.1): 

RO, Rl, R2, R5, R^, R^, R6, R7, r8, Ry, RIO, Rll, R12, R13, Rl4, RI5 

The processor also has four registers which contain real numbers or long 
real numbers. If those registers are used in conjunction with real numbers, 
they are said to be of type real, and are designated by the standaj:d register 

10 



"B" 


tl<Jlt 


#1FX 




lOS 


#FFOOS 









#106C! 


_1 


size 


1.0 


_3.li^6 


2.7»8 


#1^600000 IR 



identifiers 

FO, F2, Fll-, f6 . 

If they are used in conjiinction with long real rnmbers, they are said to be 
of type long real , and are designated by the standard register identifiers 

FOl, F25, Fi4-5, F67 . 

The above register identifiers are ass-umed to be predeclared, and no further 
register declarations can be made in a program; however other identifiers 
can be associated with these registers (cf. 2.2.10). 

2. 2. if Cell Declarations 

^sifiiple byte type) : := byt e } eharae t er 

(simple short integer type) ::= short integer 

(simple integer type) : := int eger | logical 

(simple real type) : := real 

(simple long real type) : :- long real 

(t type) ::= (simple T type ) j array (integer value ) (simple T type) 

(T cell declaration) ::= (t type)(item)| (T cell declaration), (item) 

(item) ::= (identifier)] (identifier) = (fill value) 

(fill value) ::= (T value)] (string) | 

©(procedure identifier )]@@ (procedure identifier)] 

@(T cell designator )]@@(T cell identifier)) 

(repetition list) (fill value)) 
(repetition list) ::= (] (integer value )(] (repetition list)(fill value), 

A cell declaration introduces identifiers and associates them with cells of 
a specified type. The scope of validity of these cell identifiers is the 
block in whose heading the declaration occurs (cf. 2.5.5) • Moreover, a 
declaration may specify the assignment of an initial value to the introduced 
cell. This assignment is understood to have occurred before execution of 
the program. 

Cells may be initialized to nximerical values, strings, relative or 
absolute addresses. The number of bytes appropriate for the type of the 
declared cell is taken for each (numerical) T value. Strings are never 
expanded or tnincated, each character of the string occupies one byte. 



initialization starting with the leftmost byte. A short integer or integer 
type cell can be initialized to the relative address (i.e., base register 
and displacement) corresponding to a T cell identifier or to the relative 
(entry point) address corresponding to a procedure identifier by means of the 
@ operator. The @ operator also permits the initialization of an integer 
type cell with the relative address (i.e., index register, base register 
and displacement) of a T cell designator. The @(§ operator enables 
integer type cells to be initialized with absolute addresses corresponding 
to T cell identifiers or the entry point of procedure identifiers. 

If a sinrple type is preceded by the symbol array and an integer 
value, say n , then the declared cell is an array (ordered set) of n cells 
of the specified simple type. Aa initial value list with m < n entries 
specifies the initial values of the first m elements of the array. A list 
may be specified as a list of sublists. Repetition of a sequence of elonents 
may be specified by making the sequence into a list and preceding it by an 
integer value, say k , specifying the n\;miber of times the list is to be used. 
Tf no integer value precedes a list, it is used once. Absolute addresses 
may not occur in lists where k > 1 . Integer values n and k must be 
positive. 

Note. Boundaiy alignment is performed for a cell declaration (according 
to the simple type) and not for each initializing value; because strings are 
never expanded or truncated, care is needed in initializing with combinations 
of strings and other values. 

Examples : 

byte flag 

short integer i, j,k = 10S,m = (5),baddr = ©base 

long real x, y, z = 27 ' 3L 

array 3 integer size = (36,23,37),paramlist = (@@a,@@b,@@errproc) 

array 132 byte blank - 132(" "),buff = 33(" ",2("*")," ") 

array fbsize logical area = fbsize(O) 

2.2.5 Cell Designators 

(T cell designator) : := (7 cell identifier)] 
(T cell identifier)( (index)) 
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(index) ::= (integer value) j (integer register)] 
(integer register) + (integer value) j 
(integer register) - (integer value) | 
(integer register) + (integer register)! 
(integer register) + (integer register) + (integer value)] 
(integer register) + (integer register) - (integer value) 

Cells are denoted by cell designators. The designator for a particular 
cell consists of the identifier associated with that cell, optionally 
followed by an index. When an index is used, the address of the 
designated cell is taken as the address associated with the cell identifier 
plus the value of the index. 

Notes: Register RO must not be specified as an index constituent. 
Depending upon the function with which the cell designator is used and the 
declaration of the cell identifier, the index may have 0,1 or 2 
integer register constituents. If the cell identifier has no base 
register associated with it, then the first integer register (if any) in 
the index is understood to be the base register. If the cell identifier 
has a base register associated with it, and the context permits an index 
register, then an integer register in the index is taken as an index 
register. If the identifier has no associated base register and the context 
permits indexing, then two integer registers may appear in the index and 
they are -understood to be the base register and index register, respectively. 

Examples : 

age Bl(l) 

size (8) Bll4-(R2) 

price (Rl) MEM(R3 + R7 + 8) 

line (R2 + 15) buff (Rl + Ri+ - 2) 



2.2.6 Register Assignments 

(T primary) : := (T value)] (T cell designator) 
(^ primary) ::= (?sf register) 

A primary is either a value or the content of a designated cell or register. 



(simple X register assignment) ::= 
i5( register) := {^ primaxy)] 

(?f register) := (monadic operator )((:7 primary) | 
(integer register) := (string)] 
(integer register) := @ (T cell designator)] 
(integer register) := @ (procedure identifier) 

A simple register assignment is said to specify the register appearing 
to the left of the assignment operator (:=) . To this register is assigned 
the value designated by the construct to the right of the assignment symbol. 
That designated value may be obtained through execution of a monadic 
operation specified by a monadic operator. 

(monadic operator) : : = abs \ neg | neg afas 

The monadic operations are those of taking the absolute value, of sign 
inversion, and of sign inversion after taking the absolute value. 

If a string is assigned to a register, that string must consist of 
not more thai 



four characters 
null Characters-^ are appended at the ±e±X of the strin 



If it consists of fewer than four characters. 

The bit 
representation of characters is defined in [^^5^6] (EBCDIC). 

The construction with the symbol @ is used to assign to the specified 
register the address of the designated cell or the entry point address of 
the procedure. 

The legal combinations of types to be substituted respectively for 
the letters X ^^^ (2 in preceding and subsequent rules of this paragraph 
are given in Table 1. 





a 


integer 


integer 


integer 


short integer 


real 


real 


long real 


real 


long real 


long real 



Table 1 



Null characters have the bit representation #O0X 






Examples of simple register assignments: 



RO 


= 


i 


R2 


= 


RIO 


r6 


= 


age 


FO 


= 


quant (Rl) 


R2 


= 


"xyz" 


Fk^ 


= 


ne^ FOl 


R15 


= 


abs height 



{?(' register assignment) ::= (simple X register assignment)! 
(reregister assignment ) (arithmetic operator)^ primary)] 
(integer register assignment ) (logical operator) (integer primary)] 
(integer register assignment )-(&hift operator )4iKfeeger value )| 
(integer register assignment ) (shift operator) (integer register) 

(arithmetic operator) : := + | -|*|/|++ | — \ 
(logical operator) ::= and | or j xor 
(shift operator) : ; = shll | shla j shrl | shra 

A register assignment is said to specify the same register which is specified 
by the simple register assignment or the register assignment from which it 
is derived. To this register is assigned the value obtained by applying a 
dyadic operator to the current value of that specified register and the value 
of the primary following the operator. The operations are the arithmetic 
operations of addition (+) , subtraction (-) , multiplication (*) , and 
division (/) , the logical operations of conjimction ( and ), exclusive and 
inclusive disjunction (xor, or)^ and those of shifting to the left and right, 
as implemented in the System/560. The operators ++ and -- denote logical 
or unnormalized addition and subtraction when applied to integer or 
real/long real registers respectively. When an integer value is specified 
following a shift operator, it must be nonnegative and less than 51 . 



Examples of register assignments; 



RO 

Rl 

RIO 

R9 

F2 

FO 

Fil-5 



= R5 

= 10 

= i + age - R5 + size(8) 

= r8 ajid R7 shil 8 or r6 

= 3.1iH6 

= quant (Rl) * price (Rl) 

= Fij-5 + FOl 



Note: 1. The sjnitax implies that sequences of operators, including 
assignment, are executed strictly in sequence from left to 
right . Thus 

Rl := R2 + Rl 
is not equivalent to 

Rl :- Rl + R2 
but rather to the two statements 

Rl := R2; Rl := Rl + Rl . 
This single aspect of PL36o provides many pitfalls for beginners. 

2. Multiplication and division with integer operands can only be 
specified with a multiplicand or di^/idend register Hn , where 
n is odd. The register Rm with m = n-1 is then used to 
hold the extension to the left of the product and dividend 
respectively. In the case of division, register Rm will be 
assigned the resulting remainder. 

Examples : R3 : = x * y + z 

R2 is affected by the m\iltiplication. 
R5 := Bl/15 

rU is affected by the division and contains the 
remainder . 



2.2.7 Cell Assignments 

{(J cell assignment) ::= (i7 cell designator) :- ^ register) 

The value of the % register is assigned to the designated (2 cell. 
The allowable combinations of cell and register types CI and X ^-^e 
indicated in Table 1. 

-1 c 



Examples of cell assignments: 



i := RO 

price(Rl) := FO 
X := F67 



2.2.8 Function Declarations 

(format code) ::= (integer value) 
(instruction code) ::= (integer value) 
(function definition) ::= 

(ident if ier)( (format code) , (instruction code)) 
(function declaration) ::= function (function definition)] 

(function declaration) , (function definition) 

There exist various data manipulation facilities in the 56O computer 
which cannot be expressed by an assignment. To make these facilities 
available in the language, the function statement is introduced (cf. 2.2.9), 
which uses an identifier to designate an individual computer instmction. 
The function declaration serves to associate this identifier, which thereby 
becomes a function identifier, with the desired computer instruction code, 
and to define the instruction fields which correspond from left to right to 
the parameters given in function statements. The format code defines the 
format of the instruction according to Table 2. The last two bytes of 
the instruction code define the first two bytes of the instiniction. The 
following example defines the standard function identifiers, which apart 
from TEST, SET and RESET, were chosen to be the symbolic machine codes used 
in [6]. 



function BALR(1,#0500), 
CLC(13,#D500), 
CLl(i^,#9500), 
CVB(12,#Uf00), 
CVD(12,#UeOO), 
ED(5,#nE00), 
EDMK(5,#DF00), 
EX(2,#!+i^00), 
IC(2,#U500), 
LA(2,#1+100), 
IH( 12, #1^800), 
LM(5,#98oo), 
LTR(1,#1200), 
MVC(5,#D200), 



MVI(U,#9200), 
MVN(5,#D100), 
MVZ(5,#D300), 
WC(5.#Di^-00), 
NX (1^, #9^0), 

oc(5,*d6oo), 
01 (i^, #9600), 

PACK(10,#F200), 
RESEC(8,#9200), 
SBr(8,#92FF), 
StDA(9,*8FOO), 

sldl(9,#8doo), 
sm{6,^koo), 

SRDA(9,#8EQ0^ 



SRDL{9;#8G00), 

STC(l2,#i^200), 

STH( 12, #1+000), 

STM(3,#9000), 

SVC(7,#0A00), 

TEST(8,#95FF), 

TM(if,#9100), 

TR(5,#DC00), 

TRT(5,#I>D00), 

TS(8,#9300), 

OTfPK(l0,#F300), 

XC(5,#D700), 

XI (U, #9700), 
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Table 2 



Format 
Code 




1 
2 

3 
h 

5 

6 

7 
8 

10 
11 
12 
13 
li+ 
15 



Nimiber of 
Parameter 
Fields 



Instruction Fields 
8 16 52 k8 




2 
2 
3 

2 

5 
1 
1 
1 
2 
if 
2 
2 
3 
2 
1 





R 


R 



IS^ 



LS. 



ICS 



IR" 



n 



I IR I ICS 



[ 



H 



ICS 



LC 



LC 



|r k; 1 




1 IrIr! c I 




I ICS c 



LC 



LC 



LC 



ML 



Field Definition Codes: 

R = ?C register 

C = T cell identifier (or designator in the 20 bit field) address 

I = Integer value (The value is used directly 

S = String in the instruction field) 

L = T value or string or function designator. (The address of 

the value is used in the instruction field) 
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2.2.9 Fimction Statements 

(parameter) ::= {l value)} \string)| ^ register)} {T cell designator^] 

(function designator) 
(parameter list) :'.- (parameter)] (parameter list ), (parameter/ 
function designator) ::= (function identifier)} 

(function identifier )( (parameter list)) 

If a function designator is used as a parameter, the first function 
identifier must correspond to an execute instruction. That is, the first 
byte of the instruction code must have the value ^khj. . An example is 
the predeclared identifier EX (cf. 2.2.8). 

Examples : 

SET (flag) STM(RO, R15, save) 

RESET (flag) MVl("*", line) 

LA(R1, line) IC(RO, flags (Rl)) 

MVC(1, line, "hi") EX(R1, MVC(0, line, buffer)) 



2.2.10 Synonym Declarations 

(T cell synonym declaration) ::= 

(T type) (identifier) (synonymous cell)} 

(T cell synonym declaration), (identifier)(synonymous cell) 
(synonymous cell) ::= syn (T cell designator ) | syn (integer value) 
iX register synonym declaration) ::= 

(simple X type) register (identifier) syn (x. register)} 

(?C register synonym declaration) , (identifier) syn (x register) 

Cell and register synonym declarations serve to associate synonymous 
identifiers with previously (i.e., preceding in the text) declared cells 
or registers. The types associated with the synonymous cell identifiers 
need not necessarily agree. 

If a synonymous cell is specified by an integer value, then that 
integer value represents the displacement (and possibly the base register 
and index register) part of the cell's machine address. 






Examples: integer al6 syn a(l6) 

array 32768 short integer memory syn 
integer timer syn #50 

The rollowintj exainple defines the standard integer identifiers: 

integer MEM sjm 0, B5 syn MEM(R5), BIO syn mM{BlQ), 
Bl syn MEM(Rl)^ b6 syn MEM(r6) , Bll syn MEM(Rll), 
B2 syn. MEM(R2), B? syn MEiy[(R7) , B12 syn MEM(R12), 
B3 s^n MEM(R3), b8 syn MEM(r8), B13 syn MEM(R13), 
Bil- syn MEM(Rl4-), B9 syn MEM(R9), Bli^- s^n MEM(Rll4-), 

BI5 s^n MEM(R15) 

Note: The synonym declaration can be used to associate several different 
types with a single cell. Each type is connected with a distinct identifier. 

Example: long real x = #llEOOOOOOOOOOOOOOL 
int agar xlow syn x{k) 

RO to a n-umber of type long real contained in register FOl can now be 
denoted by 

xlow := RO; FOl := x 

and a conversion vice -versa by 

FOl := FOl ++ #i^E0O000OOOOOO0O0L; x := FOl; RO := xlow . 

Wo initialization can be achieved by a synonym declaration. 

(integer value synonym declaration) ::= 

equate (identifier) (synonymous integer value)] 

(integer value synonym declaration), (identifier) (synonymous integer valu 

(synonymous integer value) ::= syn (integer value )| 

syn (syn cell value ) | syn (monadic operator) (integer value)] 
(synonymous integer value) (arithmetic operator) (integer value)] 
(synonymous integer value ) (logical operator) (integer value)] 
(synonjmous integer value) (shift operator) (integer value) 

(syn cell value) : := (t cell designator) - (t cell designator) 



?n 



Integer value synonym declarations serve to associate Identifiers -with, 
integer values. These integer values are conrputed at the time the declaration 
is parsed and the identifiers thus associated can subsequently be used as 
integer values (cf . 2.2.1) . When the difference of two cell designators 
is specified;, the cell identifiers must both have the same base register 
(cf. 2.2.11); the difference between their relative locations within the 
segment is taken as the associated integer value. The cell designators 
must not use index registers. The scope of validity of these integer 
synonyms is the block in whose heading the- declaration occurs (cf. 2.5.5)* 

Examples: equate a syn 200, b syn a+8, c syn Ad- 
equate d syn. a/c and _h 
array b byte x,y 
equate e syn y-x, f syn e-c sbll 2 

Note: a = 200, b = 208, c = k, d = 1+-8, e = 208, f =: 8l6. 



2.2.11 Segment Base Declarations 

(segment base heading) ::= segment [ global data (identifier) j 
external data (ident if ier ) | common data (identifier)! 
common I dummy 

(segment base declaration) ::= 

(segment base heading) base (integer register) 

(segment close declaration) ::= close base 

A segment base declaration causes the compiler to use the specified 
register as the base address for the cells subsequently declared in the block 
in which the base declaration occurs. Such use is terminated either by 
exit from the block or by the subsequent appearance of a segment close 
declaration. Upon entrance to this block, the appropriate base address 
is assigned to the specified base register unless the symbol dummy appears 
in the declaration (cf. 5-2). 

If the symbol data is preceded by any of the symbols global , external 
or common, the corresponding identifier is associated with the data segment 
to enable linking of segments in different EL360 programs [8,9,12]. 
Appearance of the symbol sequence ccamnon base causes a blank identification 
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to be associated with the segment (cf . 6.6) . 

Note: Dummy base declarations permit the description of data areas which 
are created during the execution of the PL36o program. The specified 

of a d-ummy base declaration. When RO is specified in a dummy base 
declaration, the subsequent identifiers are understood to have displacements 
and no base register (or index register) . 



2.3 Control Facilities 

2.3.1 If Statements 

(relation) ::= = J -1= j < j <= j >= j > 
(condition) ::= ^ register ) (relation )(:7 primary)] 
(integer register) (relation)(string) j 

(byte cell designator) |-i( byte cell designator) | (relation) | overflow 

A condition is said to be met or not met. A condition consisting of a 
relation enclosed by a register and a primary is met, if ajid only if the 
specified relation holds between the current values of the register and 
the primary. When a relation is followed by a string, the string must 
consist of not more than four characters. If it consists of fewer than 
four characters, null characters are appended at the left of the string. 
In this case, the condition is met if and only if the specified relation 
holds between the current values of the register and the string (a logical 
comparison is used) . A condition specified as a byte cell (or a byte cell 
preceded by -1 ) is met, if and only if the value of the cell is #FF (or 
not #FF ) . A condition consisting of a relation or the symbol overflow 
is met, if the condition code of the processor (cf . 2.1.1) is in a state 
specified by Table 3. 



yd 



symbol 


state 


= 





—1 = 


1 or 2 


< 


1 


< = 


or 1 


> = 


or 2 


> 


2 


overflow 
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Table 5 

{combined condition) ::= {conditicm)! 

(ccmbined condition) and (condition) 
(alternative condition) ::= (condition)! 

(alternative condition) ^ (condition) 
(compound condition) : := (combined condition )| 

(alt ernat ive c ondit ion ) 

A compound conditjnri is either of the form 
cl and c2 and c3 ... and en 

which is said to be met, if and only if all constituent conditions are 

met , or 

cl or c2 or c5 . . . or en 

which is said to be met, if and only if at least one of the constituent 
conditions is met. 

(if clause) ::= if (compound condition) then 
(true part) ::= (simple statement) else 
(if statement) ::= (if clause ) (statement ) j 
(if clause) (true part ) (statement ) 

The if statement specifies the conditional execution of statements: 

!• (if clause) (statement) 

The statement is executed, if and only if the compound condition of the 
clause is met. 
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2. (if clause) (true part ) (statement) 

The simple statement of the true paii; is executed and the statement is 
skipped, if and only if the compound condition of the if clause is met, 

Examples: if RO < 10 then Rl := 1 

if F2 > _5.75 a^ F2 < 5.75 then FO := F2 else FO := OR 
if < then SET(flags(l)) else SEr(flags(2)) 



Note: If the condition consists of a relational operator without operands, 
then the decision is made on the basis of the condition code as determined 
by a previous instruction. 

Example: CLC(l5,a,b); if = then ... 



2.5.2 Case Statements 

(case sequence) ::= (case clause) begin j 

(case sequence ) (statement ); 
(case statement) ::= (case sequence) end 

Case statements permit the selection of one of a sequence of statements 
according to the current value of the integer register (other than register 
RO) specified in the case clause. The statement whose ordinal number 
(starting with l) is equal to the register value is selected for execution, 
and the other statements in the sequence are ignored. The value of that 
register is thereby modified. 

Example: case Rl of 

begin comment interpretation of instruction code Rl; 
FOl := FOl + F25; 
FOl := FOl - F25; 
FOl := FOl * F25; 
FOl :- FOl / F25; 
FOl := neg FOl; 
FOl := abs FOl; 

end 
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2. 5.3 While Statements 

(while clause) ::= while (compoiind condition) do 
(while statement) ::= (while clause ) (statement ) 

The while statement denotes the repeated execution of a statement as 
long as the compound condition in the while clause is met. 

Examples: while FO < prize (Rl) do Rl := Rl + it- 
while RO < 10 do 

begin RO := RO + 1; FOl := FOl * FOl; F23 := F23 * FOl; 
end 



2.^.k For Statements 

(increment) ::= (integer value) 

(limit) ::=; (integer primary)] (short integer primajry) 

(for clause) ::= for (integer register assignment) step (increment) 

until (limit ) do 
(for statement) ::= (for clause) (statement) 

The for statement specifies the repeated execution of a statement, while 
the content of the integer register specified by the assignment in the for 
clause takes on the values of an arithmetic progression. That register is 
called the control register. The execution of a for statement occurs in 
the following steps: 

1. the register assignment in the for clause is executed; 

2. if the increment is not negative (negative), then if the value 
of the control register is not greater (not less) than the limit, 
the process continues with step 3; otherwise the execution of 
the for statement is terminated; 

3- the statement following the for clause is executed; 
h. the increment is added to the control register, and the process 
resumes with step 2. 

Examples: for Rl := step 1 until n do STC(".", line (Rl)) 
for R2 ;= Rl step h until RO do 

begin F23 := quant (R2) * price (R2) ; 

FOl := FOl + F23; 
end 
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2.5-5 Blocks 

(declaration) ::=: (t cell declaration) j 

(function declaration)] (procedure declaration)! 
(T cell synonym declaration) i (jiif register synonym declaration)! 
(integer value synonym declaration)] 

(segment base declaration)] (segment close declaration) 
(simple statement) ::= (x register assignment ))^a cell assignment)] 

(function designator)] (procedure statement )] (case statonent)] (block)) 
(goto statement)] null 
(statement) ::= (simple statement )] (if statement)) 

(while statement )] (for statement) 
(label definition) ::= (identifier) : 
(block head) ::= begin ] (block head) (declaration); 
(block body) ::= (block head)] (block body)(statement ); ] 

(block body) (label definition) 
(block) ::= (block body) end 
(prograin) ::= (statement) . j 

global (simple proced-ore heading); (statement ) • | 

global (simple procedure heading) base (integer register); (statement ) 
A block has the form 

begin D; D; ...; D; S; S; ...; S; end 
where the D's stand for declarations and the S's for statements 
optionally preceded by label definitions. The two main purposes of a 
block are: 

1. To embrace a sequence of statements into a structural unit which 
as a whole is classified as a simple statement. The constituent 
statements are executed in sequence from left to right. 

2. To introduce new quantities and associate identifiers with them. 
These identifiers may be used to refer to these quantities in any 
of the declarations and statements within the block, but are not 
known outside the block. 

Label definitions serve to label points in a block. The identifier 
of the label definition is said to designate the point in the block where 
^he label definition occurs. Go to statements may refer to such points. 






The identifier can be chosen freely, with the restriction that no two 
points in the same block may be designated by the same identifier. 

The symbol null denotes a simple statement which implies no action 
at all. 

Example of a block: 

begin integer bucket; 
if flag then 
t>egin bucket := RO; RO := Rl; Rl := R2j 

R2 := bucket; 
end else 
hegin bucket := R2; R2 := Rl; Rl := RO; 

RO := bucket; 
end; 



RESET (flag); 



end 



2.5.6 Go To Statements 

(cto to statement) ;:= goto {identifier) 

The interpretation of a goto statement proceeds in the following 
steps : 

1. Consider the innermost block containing the goto statement. 

2. If the identifier designates a program point within the considered 
block, then program execution resumes at that point. Otherwise, 
execution of the block is regarded as terminated and the innennost 
block surrounding it is considered. If this block is in the same 
program segment as the previous blocks, then step 2 is repeated; 
otherwise, the identifier is undefined (cf. 5.I). 

2.3.7 Procedure Declarations 

(simple procedure heading) ::= 

procedure (ident if ier)( {integer register)) 
{separate procedure heading) ::= 

segment {simple procedure heading)] 

global {simple procedure heading)] 

external {simple procedure heading) 
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(procedxrre heading) ::= {simple procediire heading) | 
(separate procedure heading )| 
(separate procedure heading) base (integer register) 

4'nvnr»P»HlTV*0 riool OT»o+ ni-^n ) • •_ l-r\inr\r>£^A->i-v^A Vi£%r>AA-^rr\* /n-t-^-^^vM^-A-J- \ 

A procedure declaration serves to associate an identifier, which 
thereby beccmes a procedure identifier, with a statement (cf. 2.5.5) which 
is called a procedure body. This identifier can then be used as an 
abbreviation for the procedure body anywhere within the scope of the 
declaration. When the procedtire is invoked, the register specified in 
parentheses in the procedure heading is assigned the return address of 
the invoking procedure statement. This register must not be RO . 

If the symbol procedure is preceded by the symbol segment , global , or 
external , the procedure body is compiled as a separate program segment. 
If the symbol is global or external , the corresponding identifier is 
associated with the procedure segment to enable linking of segments in 
possibly different PL360 programs [8,9,12]. These symbols have no other 
influence on the meaning of the program with the exception of restricting 
the scope of goto statements (of. 2.5.6, S.l and 6.6). If a base register 
is specified in the procedure heading, the procedvire body is compiled 
using the specified register for the program segment base register 
(cf. 5.1); otherwise the current program base register is used (usually 
this is R15, however cf . 6.5) - This register must not be RO. When 
the procedure is invoked, the specified (or assumed) base register is 
assigned the entry point address. 

Examples : procedure next char (R5) ; 

begin if R5 < 7I then R5 := R5 + 1 else 

begin RO := @ card; read; R5 := ; 

end; 

IC(RO, card(R5)); 
end 
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procedure slowsort (rU) ; 

for Rl := step k -until n do 

begin RO := a(Rl) ; 

for R2 := Rl + i|- step h until n do 

if RO < a(R2) then begin RO := a(R2) ; R5 := R2; end ; 

R2 := a(Rl); a(Rl) := RO; a(R5) := R2; 

end 

external procedure searchdisk (Rl^) base R12; null ; 

Note: The code corresponding to a procedure body is terminated by a 
branch-on-register instruction specifying the register designated in the 
procedure heading. A procedure stateta^it places a return address in this 
register when invoking the procedure. In order to return properly, the 
prograniraer must either not change the contents of that register, or 
explicitly save and restore its contents during the execution of the 
procedure. 



2.5.b Procedure Statements 

{procedure statanent) ::= {procedure identifier )| 
{procedure ident if ier)( {integer register)) 

The procedure statement invokes the execution of the procedure body 
designated by the procedure identifier. A return address is assigned to 
the register specified in the heading of the designated procedure 
declaration. If an integer register is specified in the procedure 
statement, on return from the procedure the contents of R15 is transferred 
to the specified integer register and the condition code is set by the 
transfer. This facilitates the convention of passing return codes in 
register R15. 
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Examples 



•Drocedure Masic square (Rd") ; 

comment This procedure establishes a magic square of order n, if n is 

odd and 1 < n < l6. X is the matrix in linearized form. Registers 
RO ... r6 are used, and register RO initially contains the 
parameter n. Algorithm ll8 (Comm. ADM, Aug. I962) ; 
begin short integer nsqr; 

integer register n syn RO, i syn Rl, J syn R2, x syn R5, ij syn Rij-, 
k syn R5; 

nsqr := n; Rl := n * nsqr; nsqr := Rl; 
i := n + 1 shrl 1; j := n; 
for k := 1 step 1 until nsqr do 

begin x := i shll 6; ij := j shll 2 + x; x := X(ij) ; 
if X -p then 

"Kpcfn rv-i •— n _1" n •— i — Q" 

if i < 1 then i := i + n; 

■^ f* -1 ■'^ 1 -f "h o-n n • -i -f- -n • 

X := i shll 6; ij := j shll 2 + x; 
end ; 

X(ij) := k; 

i :=i+l;ifi>n then i := i - n; 
j :=j + l;ifj>n then j := j - n; 
end ; 
end 
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procedure Inreal(Ril-) ; 

comment This procedure reads characters forming a real number according to 
the PL360 syntax. A procedure 'nextchar(R5) ' is used to obtain the 
next character in sequence in register RO. The answer appears in 
xhe long real register FOl. Registers RO . . . R^ and all real 
registers are used; 
begin ext ernal procedure nex±chax(R3) ; null ; 

integer register char syn RO, accum syn Rl, scale syn R2; ext syn R5; 
long real register answer syn FOl; 
byte sign, expos ign; 

long real converted = #ii-EOOOOOOOOOOOOOOL ; 
int eger convert syn converted (k) ; 
nextchar ; RESET { s ign) ; 
while char < "0" do 

begin if char = "_" then SEr(sign) else RESET(sign); nextchar; 
end ; 

comment Accumulate the integral part in accum; 
accum := char and #F; nex±char; 
while char >= "0" do 

begin char := char and #F; accum := accum * lOS + char; nextchar; 
end ; 

scale := 0; 

convert := accum; answer := converted + OL; 
if char = "." then 
begin comment Process fraction. Acc-umulate number in answer; 

nextchar; 

while char >= "0" do 

begin char := char and I^F; convert := char; 

answer := answer * lOL + converted; scale := scale - 1; 
nextchar; 

end; 
end ; 

if char = ""' then 
begin comment Read the scale factor and add it to scale; 

nextchar; if char = "-" then 
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begin SET(exposign) ; nextchar; 
end else 

if char = "+" then 
begin RESET (exposign) ; nejcfcchar; 
end else RESET (exposign) ; 
accTom := char and #F; next char; 
while char >= "0" do 

begin char := char and #F; accum := accum * lOS + char; next char; 
end; 

if exposign then scale := scale - accum else scale := scale + acc-um; 
end ; 
if scale — f then 

begin ccatanent Ccxnpute ¥h'^ := 10 t scale; 
if scale < then 

begin scale := abs scale; SET ( exposign) ; 
end else RESET (exposign) ; 
F25 := lOL; FU5 := IL; Ffi? := FU5; 
while scale — i = do 
begin SRDL( scale, l) ; 

comment divide scale by 2, shift remainder into scale 
extension, making ext < if remainder is 1; 
F25 := F25 * F67; f67 := F23; 
if ext < then Fk'^ := Fh^ * F25; 
end; 

if exposign then answer := answer / Fk'^ 
else answer := answer * F^5j 
end; 



if sign then answer := neg answer; 



end 



procedure Out real (R^l-) ; 

begin comment This procedure converts the (long) real number in register FOl 
into a string of lU characters which constitute one of its possible 
decimal denotations. The character pattern is bsd.dddddd'sdd, where b 
is a blank, s a sign, and d a digit . Registers RO, R2, R3, R^i-, and 
all real registers are used. Upon entry, register Rl must contain the 
address of the output area. Its value remains unchanged; 
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integer register exp syn RO, scale syn R2, ext syn R3; 
long real register x syn FOl; 
long real convert; 

Tv^+^rcov r•/-^T^-^ra•^»+ 0/-1 cim n r\rtira-r+. f h.\ . /^vinrt !i\m r>nmrfi-H". (01 r 

byte sign; 

array ^4- logical pattern = 

(#i^02120itB, #20202020, #20207D21, #20200000); 
if X = OL then MVC(13,B1/' ") else 
begin if x < OL then SEr(sign) else RESEr(sign) ; 

X := abs x; convert := x; 

comment Obtain an estimated decimal scale factor from the exponent 

part of the floating point representation; 

exp := expo shrl 2h - 6\ * 307S; if < then exp := exp + 255; 

exp := exp shra 8-1; scale := abs exp; 

comment compute ^h'^ := 10 t scale; 

F23 :- lOL; Yh':> := IL; F67 := Fi^5; 

while scale -p do 

begin SEDL ( scale, 1); F23 := F23 * F67; F67 := F25; 
if ext < then F4-5 := F^5 * F23; 

end; 



comment normalize to 1 < x < 10; 
if exp < then 
begin x := x * Fi+5; 

while X < 11 do 

begin x := x * lOL; exp := exp - 1; 

end; 
end else 
begin x := x / fU5; 

while X >= lOL do 

begin x := x *0.1L; exp := exp + 1; 

end; 
end ; 

X := x * 1'7L ++ #Ue00000000000005L; 
convert := x; ext := converted; 

comment ext is used here to hold the integer resulting from the 

conversion; 
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if ext >= 100000000 then 

begin ext := ext / 10; exp := exp + 1; 

comment adjustment needed when conversion results in 

rounding up to 10.0. Note that R2 = 0; 
end ; 

MVC(15; Bl, pattern); C"VB(ext, convert); ED(9, B1, convert(5)); 
if sign then MVI("-", Bl(l)); 
CVD(exp, convert); ED(5, Bl(lO), convert(6)); 
if exp < then MVl("-'% Bl(ll)) else MVl("+", Bl(ll)); 
end; 
end 

procedure BinarySearch (R8) ; 

comment A "binary search is performed for an identifier in a table via an 
alphabetically ordered directory containing for each entry the 
length (no. of characters) of the identifier, the address of the 
actual identifier, and a code number. The global declarations 
array N integer directory 

array N short integer code syn directory (O) 
array N short integer len^h syn directory (2) 
array N integer address syn directory (h) 
integer n 
are assumed. n equals 8 times the number N of entries in the 
table, which appear as directory(8), directory(l6), ..., 
directory(n) . This assumption can easily be changed by changing 
the value of size in the equate declaration. It is assumed that 
code(O) = 0. Upon entry, Rl contains the length of the given 
identifier. R2 contains its address. Upon exit, R3 contains the 
code number, if a match is foxind in the table, otherwise. 
Registers RI-rB are used; 
begin integer register L syn Rl, low syn R3, i syn R^l-, high syn R5, 
m syn R7; equat e size syn 8, mask syn neg size; 
high := n; low := size; comment index step in directory is size; 
while low <= high do 

begin i := low + high shrl 1 and mask; r6 := address(i); 
if L = length(i) then 
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begin EX(L, CLC(0, B2, b6)) ; If = then goto found; 

if < then high := i - size else low := size + i; 
end else 

if L < length (i) then 
begin EX (L, CLC(0, B2, b6)); 

if <= then high := i - size else low := size + i; 
end else 
begin m := length ( i) ; EK(m, CK!(0, B2, b6)); 

if < then high := i - size else low := size + i; 
end; 
end; 
i := 0; 
found: R5 := code(i); 
end 



35 



k. The Object Code 

Three principal postulates were used as guidelines in the design of 
the language: 

1. Statements which express operations on data must correspond to 
machine instructions in an obvious way. Their structure must be 
such that they decompose into structural elements, each corresponding 
directly to a single instruction. 

2. No storage element of the computer should be hidden frcm the 
programmer. In particular, the usage of registers should be 
explicitly expressed by each program. 

3. The control of sequencing should be expressible implicitly by 
the structure of certain statements (e.g., through prefixing 
them with clauses indicating their conditional or iterative 
execution) . 

The following paragraphs serve to exhibit the machine code into which 
the various constructs of the language are translated. The mnemonics of 
the 360 Assembly Language [7] are used to denote the individual instructions. 
The notation [A] serves to denote the code sequence corresponding to the 
construct <a) . It is assumed that RI5 is the program base register 
(cf. 5-l» 6.3) . 



1. {reregister) := {(7 primary) 

The code consists of a single load instruction depending on the types 
of register and primary (cf . Table h, column l) . 

2. Oc ^sgister assignment )(operator)((7 primary) 

The code consists of a single instruction depending on the operator and 
the types of register and primary. It is determined according to Table h, 
columns 2-7. 
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5. {i7 cell) := (X register) 

The code consists of a single store instruction depending on the types 
of cell and register as indicated by Table h, column 8. 

k. if ^condition-l) and ... and {condition-n-l) and 

^condition-n) then {simple statement) else (statement) 
[condition-l] 
BC c^,Ll 

• • • 

{condition-n-1} 
BC c ^,L1 

H-1 

[condition-n] 

BC c ,L1 
n' 

{simple statement] 

B L2 
LI {statement] 
L2 

c. is determined by the i-th condition, which itself either translates 
into a compare instruction depending on the types of compared register and 
primary (cf. Table h, col. 9), or has no corresponding instruction, if it 
merely designates condition code states. 

Example: if Rl < R2 then RO := R5 else RO := R^t- 

CR 1,2 
BC 10, LI 

LR 0,5 

B L2 
LI LR 0,1+ 
L2 



XT 



CO 



Operands 








Operators 








X register 

(type) 


(7 primary 
(type) 


1 


2 

+ 


5 


k 


5 
/ 


6 
++ 


7 


8 


9 


integer 


integer register 


LR 


m 


SR 


MR 


DR 


ALR 


SLR 




CR 


integer 


integer cell 


L 


A 


S 


M 


D 


AL 


SL 


ST 


C 


integer 


short integer cell 


LH 


AH 


SH 


m 








STH 


CH 


real 


real register 


T,ER 


AER 


SER 


MER 


DER 


Aim 


SUE 




CER 


real 


real eel 1 


LE 


AE 


SE 


ME 


DE 


AU 


SU 


STE 


CE 


long real 


real register 


LEIi 


AER 


SER 


MER 


DER 


AUR 


SUR 




CER 


long real 


long real register 


IDR 


ADR 


SDR 


MDR 


DDR 


AWR 


SWR 




CDR 


long real 


real cell 


LE 


AE 


SE 


ME 


DE 


AU 


SU 


STE 


CE 


long real 


long real cell 


LD 


AD 


SD 


MD 


DD 


AW 


SW 


STD 


CD 



Table h 



if <condition-l) or ... or <condition-n-l) or <condition-n) then 
{simple statesraent) else {statement) 
[condition-1] 
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[condition-n-l] 

BC c T,L1 
n-1 

[condition-n] 

BC c^;.L2 
LI {simple statement] 

B L5 
L2 [statement] 
L5 



case (integer register-m) of 
begin (statement-l); 
(statement -2/; 



(st at ement -n ) ; 

end 

AE m,m / 

m m, SW(m) / 
B 0{£\5)l 
LI mu *-ORIGIN 
[statement-l] 
B LX(15,0) 
L2 EQU *-ORIGIN 
[statement -2] 
B LX(15,0) 

Ln EQU *-ORIGIlT 
[statement -n] 
B LX(15,0) 
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SW EQU *-2 
DC Y(L1) 
DC Y(L2) 

DC Y(Ln) 
LX EQU ^-ORIGIN 

ORIGIN is the address of the "beginning of the program segment and 
register 15 is assumed to contain this address (cf. 5.I) . 

7- while (condition) do {statement) 

LI [condition] 

BC c,L2 
[statement] 
B LI 
L2 

If the condition is compound, then code sequences similar to those 

given under h and 5 are used. 

8. for (integer register assignment) 

step (increment) until (limit) do (statement) 
[integer register assignment] 
B L2 
LI [statement] 

A m,INC 
L2 C ra, LIM 
BC c,Ll 

Em is the register specified by the assignment, INC the location 
where the increment is stored, and LIM the location where the limit is 
stored. The compare instruction at L2 may be either a C , CH , or CR 
instruction depending on the type of limit. Moreover, c depends on the 
sign of the increment . 
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9- procedure {identifier) ((integer register) );< statement) 

P f statement] 
BR ra 
It is assumed that the integer register enclosed in parentheses 
is Rm. 

10. (procedure identifier) 

ML m,P 

or L I5,newbase 
BALE m,15 
L IJjOldbase 

or L l5,newbase 
BAL m,P 
L 15,oldbase 

It is here assumed that P designates the procedure to be called, 
and Rm is the return address register specified in its declaration. 
The first version of code is obtained whenever the segment in which the 
procedure is declared is also the one in which it is invoked. If the 
procedure call is of the form 

(procedure identiiier) (Rn) 
then the instruction sequences become 

BAL m,P 

LTR n,l5 

BALR 15,0 

L IJjOldbase 

or L I5,newbase 

BALR m,15 

LTR n,l5 

BALR 15,0 

L 15jOldbase 

or L 15,newbase 

BAL m,P 

LTR n , 15 

BALR 15,0 

L l5,oldbase 
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5- Addressing and Segmentation 

The addressing mechanism of the 360 canputers is such that 
instructions can indicate addresses only relative to a base address 
contained in a register. The programmer must insure that 

1. every address in his program specifies a "base" register, 

2. the specified register is loaded with the appropriate base 
address whenever an instruction whose address refers to it is 
executed, 

3. the difference d between the desired absolute address and 
the available base address satisfies 

< d < 1*096 

This scheme not only increases the amount of 'clerical' work in 
programming, but also constitutes a rich source of pitfalls. PL360 is 
designed to ease the tedious task of base address assignment, and to provide 
checking facilities against errors. 

The solution adopted here is that of program segmentation. The program 
is subdivided into individual parts, called segments. Every quantity 
defined within the program is known by the number of the segment in which 
it occurs and by its displacement relative to the origin of that segment. 
The problem then consists of subdividing the program and choosing base 
registers in such a way that 

a. the compiler knows which register is used as base for each 
compiled address, 

b. the compiler can assure that each base register contains the 
desired base address during execution, and 

c. the number of times base addresses are reloaded into registers 
is reasonably small. 

It was decided [1] that the programmer should express explicitly 
which parts of his program were to constitute segments. He has then the 
possibility of organizing the program in a way which minimizes the number 
of cross-references between segments. 
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It should be noted that the programmer's knowledge about segment sizes 
and occurrences of cross-references is quite different in the cases of 
program and data. In the latter case he is exactly aware of the amount of 
storage needed for the declared quantities, and he knows precisely in what 
places of the program references to a specific data segment occur. In the 
former case^ his knowledge about the eventual size of a compiled program 
section is only vague, and he is sometimes unaware of the occuirrence of 
branch instructions implicit in certain constructs of the language. It 
was therefore decided [1] to treat programs and data differently, and this 
decision also conformed with the desirability of keeping program and data 
apart as separate entities, 

5.1 Program Segmentation 

Since control lies by its very nature in exactly one segment at any 
instant, one fixed register is designated to hold the base address of the 
program segment currently under execution. Register RI5 is usually used 
for this purpose, (however, cf. 2.5.?^ 6.5). 

Branching to another segment is accomplished with a procedure 

statement which causes RI5 to be reloaded with the base address of the 
destination segment before branching to that segment. 

The natural unit for a program segment is the procedure. The only 
way to enter a procedure is via a procedure statement, and the only way 
to leave it is at its end or by an explicit go to statement. An 
explicit go to statement cannot be used for branching to another segment. 
The fact that no implicitly generated instruction can ever lead control 
outside of a procedure minimizes the number of cross-references in a natural 
way. Only relatively large procedure bodies should constitute segments. 
A facility is provided to designate such procedures explicitly: A procedure 
to be compiled as a program segment must contain the sym.bol segment or 
global in its heading. It is relatively easy for a programmer to guess 
which procedure exceeds the prescribed size, or otherwise to insert the 
symbol segment after the compiler has provided an appropriate comment in 
the first compilation attempt. Obviously, the outermost block is always 
compiled as a segment . 
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'^.'d Data Segmentation 

In the case of data, the programmer is precisely aware of the amount 
of allocated memory as well as of the instances where reference is made to 
these quantities. A hase declaration was therefore introduced which implies 
that all quantities declared thereafter, hut still within the same block 
and preceding another base declaration, refer to the specified register as 
their base. These quantities form a data segment . At the place of the 
base declaration, an instruction is compiled which loads the register with 
the appropriate segment address. However, its previous contents are neither 
saved nor restored upon exit fl-om the block. 

A PL56O program which is a stat-aaent is considered to be embedded in 
a block containing the implicit declarations 

global data SEGNOOO base R15; 
array I8 integer savearea; 

However, the identifier "savearea" is not considered predeclared. The 
18-word "savearea" is merely reserved to conform with procedure calling 
conventions (cf. b.l.i)-) . If the PL56o program is a global procedure, 
there is no implicit base declaration. 

Obviously, data segments declared in parallel (i.e., not nested) 
blocks, can safely refer to the same base register. Data segments declared 
within the same block usually refer to different base registers. Data 
segments declared within nested blocks should normally refer to different 
base registers. If they do not, it is the programmer's responsibility to 
ensure that the register is appropriately loaded when a segment is 
addressed. 

There is no limit to the size of data segments. All cell identifiers 
must, however, refer to cells whose addresses differ from the segment base 
address by less than ^1096. If they do not, the compiler provides an 
appropriate indication. 
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6. The PL360 Compiler 

The EL560 compiler is itself written in FL36o. The current version 
of the compiler is neither re-entrant nor serially reusable. This in no 
way inhibits the writing of PL560 programs with these attributes. 

6.1 The Language 

The PL560 programming language is described in Section 2 of this 
document. Details pertinent to the present implementation (e.g., symbol 
representations, standard identifiers, ajid specific limitations) are 
contained in subsequent paragraphs of this section. 

6.1.1 Symbol Representation 

Only capital letters are available. Basic symbols which consist of 
underlined letter sequences in Section 2 are denoted by the same letter 
sequences without further distinction. As a consequence, they cannot be 
used as identifiers. Such letter sequences are called reseirved words. 
Embedded blanks are not allowed in reserved words, identifiers, and n-umbers, 
Adjacent reserved words, identifiers, and niimbers must be separated by at 
least one blank. Otherwise, blanks may be used freely. The basic symbols 
are: 

+ -*/()=<> ^ 

,;.:©#_"' 

DO IF OF OR 

ABS AND END FOR NEG SIE XOR 

BASE BYTE CASE DATA ELSE GOTO LONG MILL 

REAL SHLA SHLL SHRA SHRL STEP THEN 

ARRAY BEGIN CLOSE DUMMY SHORT UIWIL WHILE 

COMMON EQUATE GLOBAL 

COMMENT UWEGER LOGICAL SEGMENT 

EXTERNAL FUNCTION OVERFLOW REGISTER 

CHARACTER PROCEDURE 
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6.1.2 standard Identifiers 

The following identifiers are predeclared in the language but may 
"be redeclared due to block structure. Their predefined meaning is specified 
in Section 2 or in Section 6.1.h. 

MEM 

Bl B2 B3 Bk B5 B6 B? B8 B9 BIO BU B12 B15 Blij- BI5 

RO Rl R2 R3 Ri^ R5 R6 R? R8 R9 RIO Rll R12 R13 Blk RI5 

FO F2 Fh f6 

FOl F23 Fh^ F67 

BALR CLC CLI CVB CVD ED EDMK EK IC 

LA IH LM LTR MVC MVI MVN MVZ MC NX 00 01 ' PACK 

RESET SET SIDA SLDL SIM SRDA SRDL STC STH STM SVC 

TEST TM TR TRT TS UOTK XC XI 

CANCEL GET KLOSE OPEN PAGE PRINT PUNCH PUT READ WRITE 



6.1.5 Kestriction 

The implementation imposes the restriction that only the first 10 
characters of identifiers are recognized as significant. 



6.1.h standard Procedures 

A set of standard procedures is defined for elementary unit record 
input and ouput operations. The implicit procedure declarations are as 
follows : 

external procedure READ (Rl'+) ; null ; 
external procedure WRITE (Rl^) ; null ; 
external procedure PAGE (Rl^) ; null ; 
external procedure RMCH (Rl^) ; null ; 
external procedure PRINT (Rl^) ; nu3J. ; 
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Suitable externally compiled or assembled routines must be provided in the 
link/ loading process; the specifications of these routines are: 

READ Read an 80 character record from the system input data set 
and assign that record to the memory area designated by the 
address in register RO. Set the condition code to 2 if no 
record could be returned due to an end of file condition; 
otherwise, to 0. 

WRITE Write a 155 character record to the system listing data set. 

A 152 character record is taken frcm the memory area designated 
by the address in register RO and prefixed by an appropriate 
carriage control character. A control character indicating a 
new page is used after 60 lines have been written on a page, 
otherwise a control character indicating the next line is used. 
The first line is written on a new page. 

PAGE Cause the next output record transmitted by a WRITE to the system 
listing data set to have a control character indicating a new 
page. 

PUICH write the 8o character record designated by the address in 
register RO to the system punch data set. 

PRINT Write the 155 character record designated by the address in 
register RO to the system listing data set. The calling 
program provides a USASI control character as the first 
character. 

All of these procedures assume that register R15 contains the address 
of an l8 word save area and all registers are restored before retiirn. Each 
of the data sets is opened upon initial reference ajid is closed by the 
operating system at the end of a Job step. 

A set of standard procedures is defined for elementary disk and tape 
input and output operations using sequential files. The implicit procedure 
declarations are as follows: 

external procedtire 0PEIN"(Rli4-) ; null ; 
external procedure G-Er(Rl4) ; null ; 
external procedure PUT(Rl4) ; null ; 
external procedure KLOSECrI^i-) ; null ; 
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Suitable externally compiled or assonbled routines must be provided in the 
link/ loading process; the specifications of these routines are: 

OPEN At entry, register RO must be if the file is to be an 
output file or 1 if the file is to be an input file. 

Ti lo i-vS fft- jr^<ua T^ '"i -vMn ^ *"i"*- ^* *-**»*•♦• rk •? Hn ■♦"'L^ ^K rs ^ ^ nA ^^ ^ ^t ^^•P n v« W Ini i I ^% ft T*» .-^ n 

x\cg,j.i30cx xi^ uiuSo f^wiiuajjn. ui.i,c OidureSo >->x OH w— uyoc cki. ^ci. 

containing a unique file name. (This is taken as the ddname 

in an OS environment and as the symbolic file name in a DOS 

environment.) In an OS environment, register Rl must contain 

the address of a 100 -byte full word-aligned area which, 

following the open, will contain the data control block. 

In a DOS environment, register Rl must contain the address of 

a separately assembled DTF table which describes the file. 

The file is made ready for input/ output operations. All 

registers are restored. 

GET At entry, register Rl must contain the address of a table 

which describes the file. (In an OS environment this table 

is called the data control block ajid in a DOS environment it 

is called the DTF table.) Upon return, register Rl contains 

the address of the next logical record in the file. (The 
first call of GET returns with the address of the first 

logical record.) When an end-of-file is reached, the 

condition code is set to 2; normally it is set to 0. All 

registers, except Rl, are restored. 

HJT At entry, register Rl must contain the address of a table 

which describes the file. Upon ret\am, register Rl contains 
the address of an area in wl^ich the next logical record to 
be output is to be built. All other registers are restored. 

KLOSE At entry, register Rl must contain the address of a table 

which describes the file. The corresponding file is closed 
and no further input -output operations can be performed with 
it unless it is opened again. In an OS environment, the 
contents of register RO denoted by (RO) is also an input 
parameter to this subroutine: If (RO) = , the DISP 
option of the DD statement is used to determine final volume 
positioning; if (RO) < , the volume is positioned at the 
end of the data set. If (RO) > , the volxme is positioned 
at the beginning of the data set. All registers are restored. 






One additional standard procedure is defined for ease in communicating 
with the operating system. The implicit procedure declaration is as follows: 

external procedure CABrCEL(Rl^) ; null ; 

A suitable externally compiled or assembled routine must be provided in the 
link/ loading process; the specification of this routine is: 

CAIKEL The job, including all future job steps, is cancelled. 

All of these procedxires assume that register R15 contains the address 
of an 18 word save area (cf. 5*2). 



6.2 Input Format 

Compiler input records consist of 80 characters. The first 72 
characters of each record are processed as part of a PL560 program; characters 
75 through 80 are listed but not otherwise processed. Character 72 of one 
record is considered to be immediately followed by character 1 of the next 
record. Strings and comments should be arranged so that the character 
'$' does not appear in character position 1. 



6.5 Instructions to the Compiler 

The compiler accepts instructions inserted anywhere in the sequence of 
input records. These instructions affect subsequent records. A compiler 
instruction record is marked by the character '$• in column 1 and an 
instruction in columns 2-9. 

$MOGO Compile, but mark the output non-executable. 

$LIST List soxirce records (initial option) 

$NOLIST Do not list source records. 

$PAGE Start a new page with the next listing record. 

$TITLE Start a new page with the next listing record, and use the 

contents of coltimns 10 through 62 as the title for that and 

subsequent pages . 
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7 



$XYY# If this directive precedes the first source record then 

compiler generated segment names will commence with XYY rather 
than SEG, otheirwise the directive is ignored. X signifies 
any alphabetic and Y any alphanxuneric character: (cf. G.6) . 

$0S Subsequent EL560 programs which are statements are ccanpiled 
with entry and exit instruction sequences which conform with 
the program calling conventions of an OS environment. This 
is a default option when the compiler is used with the OS 
interface. 

$DOS Subsequent EL360 programs which are statements are compiled 
with entry and exit instruction sequences which conform with 
the program calling ccHiventions of a DOS envircximent . This is 
a default option when the compiler is used with the DOS 
interface. 

$XREF All subsequent instances of identifiers are listed in an 

alphabetical cross-reference listing together with the line 
numbers at which they are referenced in the source program. 
The cross-reference listing follows the program listing. If 
there is not enough free storage to allocate to the 
cross-reference tables, the cross-reference listing is not 
made and the $XREF instruction is Ignored. 
$WOXKEF This causes the previous option to be turned off (initial 
option) . 

$0 Print a summary line at the close of each segment (initial 

option) . 
$1 Print a sijmmary line and list of external symbol dictionary 

entries at the close of each segment. 
$2 List the address of each variable and procedure as it is 

declared, as well as the information specified in $1. 
$3 List the object text in hexadecimal notation at the close of 

each segment, as well as the information specified in $2. 
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$BASE=xx New program segments following this instruction are compiled 
with XX taken as the program segment base register. This 
includes main programs, global procedures, segnent procedures, 
and external procedures. Procediire calls to such segments 
automatically set the specified base register to the entry 
point address. The decjjnal number xx must be between 01 
and 15 . Programs which are statements must not be 
compiled with base registers 15 or ll^-. The initial option 
is xx=15 . It is recommended that this compiler instruction 
only be used for programs which make use of SVC instructions 
which do net preserve the contents of register RI5. 



6.i^ Compiler Listing Output 

If listing is specified, each source record is listed as it is read. 
Source records in which errors are detected are always listed. Four sets 
of numbers appear at the left of each line. The first set consists of the 
current internal program segment number (in decimal) followed by the program 
object code relative address (in hexadecimal); the second set, of the 
current internal data segment number and data relative address. The fifth 
number is the nimiber of the source record (excluding compiler instinct ions ) . 
The final number, the beg in/ end level count, shows the excess of begin 
symbols over end symbols at the beginning of the line on which it appears; 
it is only printed after lines which cause its value to change. 

In addition, each page begins with a heading which includes the page 
number, date, time, and an optional title (cf . 6.3) . 



6.5 Error Messages of the Compiler 

Errors detected by the compiler are indicated by a message and a 
vertical bar below the character which was last read. After 5I errors are 
detected in a program, a message is provided, and further diagnostic messages 
are counted but not listed. Following is a list of error diagnostics and 

their meajiings: 
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Error No. Message 



00 



02 



05 



Ol^ 



05 



07 



08 



09 



10 



11 



12 



15 



SYNTAX 



wxui itj^k^ a- a. X -i-Ji^ 



FOR PARAMETER 



REG ASS TYPES 



BIN OP TYPES 



SHIIT OP 



COMPARE TYPES 



REG TYPE OR # 



UNDEFINED ID 



MLTLT LAB DEF 



EKC INI VALUE 



NOT INDEXABLE 



DATA OVERFLOW 



NO OF ARGS 



ILLEGAL CHAR 



Meaning 

The soxirce program violates the EL56o syntax. 
Analysis continues with the next statement . 

are inccanpatible. 

In a for clause, the register is not an integer 

register, the step is not an integer or short 

integer niimber, or the limit is not a register, 

cell, or number of the integer tj^es. 

The types of operands in a register assignment 

are incompatible. 

The types of operands of an arithmetic or logical 

operator are incompatible. 

A real instead of an integer register or number 

is specified in a shift operation. 

The types of operands in a comparison are 

incompatible. 

Either the type or the number of the register 

used is incorrect. 

An -undeclared identifier is encountered. The 

identifier is treated as if it were 'Rl' . This 

may generate other errors. 

The same identifier is defined as a label more 

than once in the same block. 

The number of initiaJ-izing values exceeds the 

number of elements in the array. 

An index register is not allowed for the cell 

designator in this context. 

The address of the declared variable in the 

data segment exceeds hO^^. 

An incorrect number of arguments is used for a 

function. 

An illegal character was encountered; it is 

skipped. 
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15 

16 
1? 



18 



19 
20 



21 



27 
28 



MJLTIPLE ID 



PROGRAM OFLOW 



INITIAL OFLOW 



ADDRESS OFLOW 



miMBER OFLOW 
MISSING • 



STRING LENGTH 



22 


MD/OR MIX 


25 


FUNG DEF NO. 


2k 


ILLEGAL PAEIA 


25 


NUMBER 


26 


SYN MIX 



SEG WO OFLOW 



ILLEGAL CLOSE 



The same identifier is declared more than once 
in the same block. This occiirrence of the 
identifier is ignored. 

The current program segment is too large. It 
must be resegmented. 

The area of initializing data in the compiler 
is fall. This can usually be circumvented by 
suitable data segmentation or by re-ordering 
initialized data within the segment. 
The ni3mber used as index is such that the 
resulting relative address is less than or 
greater than iK)95' 

The integer number is too large in magnitude. 
An end-of -f ile is encountered before a ' . ' 
terminating the program. The problem may be 
a missing string quote. 

The length of a string is either or greater 
than 256. 

A compound condition must not contain both 
ANDs and ORs. 

The format number in a function declaration 
is illegal. 

A parameter is incanpatible with the specifi- 
cations of the function. 

A number has been used that has an illegal 
type or value. 

Synonym declarations cannot mix cell and register 
declarations, or T cell designators have 
different base registers. 

The maximum allowed segment number has been 
exceeded. The limit is generally set at 75. 
A segment close declaration is enco\intered when 
no data segment is open in the corresponding 
block head. 
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29 NO DATA SEG A variable is declared with no open data 

segment. A dummy data segment is opened. 

30 ILLEGAL INIT Initialization is specified in a common data 

segment or replicates an absolute address. 

At the end of each program segment, all occurrences of undefined labels 
are listed with an indication of where they occurred. 



6.6 Compiler Object Program Output 

The PL56o compiler is designed to be used in conjunction with 
link/loader programs which resolve symbolic cross-references between the 
segments of one or more programs. Examples of programs capable of such 
resolution are the MTS loader [9], the IBM OS linkage editor or loader [8], 
and the IBM DOS linkage editor [12]. The remainder of this section uses 
the terminology of these programs. 

The output of the PL56o compiler is a sequence of object modules. 
Each object module contains a single control section corresponding to a 
PL56O segment. It consists of 80 character records in the standard fonnat 
of external symbol dictionary (ESD), text (TXT), relocation dictionary (RLD) 
and an end (END) (cf. [10] Appendix B) . 

Every PL560 segment (except a dtunmy data segment) is associated with 
an object module in the following fashion: 

1. If the symbol segment appears in the segment declaration, an 
object module is produced for this segment; the control section 
name is generated by the compiler as described below. 

2. If the symbol global appears in the segment declaration, an 
object module is produced for this segment; the control section 
name is the first 8 bytes of the identifier appearing in the 
declaration. 

3. If the symbol external occurs in the segment declaration, no 
object module is produced; instead the first 8 bytes of the 
identifier in the declaration is assumed to be the name of a 
control section independently generated and is used to indicate 
this in the object module created for the segment containing the 
external declaration. 
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h. If the symbol common appears in the segment declaration then 
an object module is created in the form of a labelled or blank 
common control section according to whether the common 
declaration contains an identifier or not. 

In all cases a control section has a single entry point; the entry- 
point name and the control section name are identical. In the case of a 
PL560 program which is a statement, a transfer address to the entry point 
is provided in the EKD card of the object module for the implicit segment 
corresponding to this statement. This transfer address is used by a loader 
to determine where to begin execution. 

The task of the linkage editor/loader includes matching global and 
external declarations, inserting absolute address constants and conpleting 
tables of segment base addresses, contained within each control section for 
a program segment, in accordance with the external symbol dictionary and 
relocation dictionary generated by the compiler for that control section. 

For PL560 programs which are statements, control section names 
generated by the ccmpiler are of the form SEGNnnn where nnn is the decimal 
internal segment number. If the PLJ^ program is a global procedure, the 
first three characters of the procedure identifier (extended on the right 
by KN if necessary) are used in place of the characters 'SEG'. These 
naming conventions may be overruled by use of the compiler directive 
$XYY# (cf. 6.3). 

Each END card of the object module output of the ccmpiler has the name 
"PL360" followed by the date and time of compilation. 



6.7 Performance 

In an OS environment on a 360/67 with spooled input and output files, 
the compiler will recompile itself in about 25 seconds. The compiler is 
approximately 2700 card ojnages. Thus, when the OS scheduler time is 
subtracted from the execution time given above, it is seen that the 
compiler runs at a speed in excess of 100 cards per second (for dense code) 

In a DOS environment on a 560/30, the compiler is limited only by the 
speed of the card reader. The compiler has successfully recompiled itself 
on a 6hK 360/30 at a rate of 1200 cards per minute (the speed of the card 
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reader) . This is impressive when ccmpared to the time required for the 
DOS Assembler to assemble the interface modiile which consists of under 
250 cards. When the macro instructions are expanded, the DOS interface 
has 972 card images and the Assembler takes I5 minutes for the assembly. 
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7- Linkage Conventions 

Although PL560 was designed for writing logically self-contained 
programs, it is possible to communicate with separately compiled programs 
if appropriate linkage and coding conventions are observed. These 
conventions are summarized below. 



?•! Calling External Routines from EL560 

Addresses which correspond to external symbolic names and which are 
to be supplied by linkage editing can be specified by the external or 
common declarations of PL560. Entry to the block containing a data segment 
declaration causes the specified base register to be loaded with the 
corresponding address. External names appearing in procedure declarations 
are assumed to designate entry points to subroutines. In such declarations, 
the procedure body is normally the statement null . The call of the external 
procedure P2 from the procedure PI is equivalent to the following 56O 
Assembler coding: 

USING PI, 15 

• • • 

L i,=V(P2) 

DROP 15 

BALR n,£ 

USING *, n 

L 15, =A(P1) 

USING PI, 15 

DROP n 

This linkage implies the following restrictions upon the called routine: 

1. At entry, the base register specified (or assumed) in the 
external procedure declaration (i) contains the address 
of the entry point, unless f = n . 

2. At entry, the register specified in the external procedure 
doclfiratifHi (ri) nontainfi the return address. 

'3. Before return, the return address must be restored to that 
designated register. 
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Any additional, non-conflicting conventions may be established by the 
programmer . 

If the called procedure (P2) uses R15 to return information to the 
calling routine (Pl), the procedure statement in PI is usually of the form 
P2(Rm) , indicating that the return linkage must move the contents of RI5 
to Km , thus setting the condition code before re-establishing the base 
address of PI in RI5. The equivalent 560 Assembler coding for this type of 
call differs from that already given only in the last four lines which 
become 

LTR m, 15 

BALR 15,0 

USING *, 15 

L 15,-A(P1) 

USING PI, 15 

OS type linkages are facilitated by the fact that if the calling PL560 
program is a statement, the first 18 words of the implicit data segment 
(base register R15) are available for use as a save area (cf. 5*2), and by 
the @@ operator which facilitates the construction of OS-type parameter 
lists at compile time. 



7«2 Requesting Supervisor Services 

SVC instructions are available in EL560 programs through the function 
statement. It should be noted, however, that in many operating systems 
the contents of RI5 are destroyed by execution of some SVC instructions. 
In such cases, it is essential that saving and immediately restoring RI5 
be explicitly programmed. This tedious job of preserving the contents of 
the program base register can be avoided by using the $BASE compiler 
instruction (cf. 6.5), or by explicitly specifying a base register in 
the procedure heading (cf. 2.5.7). 
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7-3 Calling FL^GO Procedures from External Routines 

Symbolic names and corresponding addresses to be made Imown to 
routines external to the EL56o program are specified by the global and 
common declarations of HiJoO. Global names specified in procedure 
declarations are associated with the corresponding procedure entry point. 
The external invocation of EL56o procedures must satisfy the following 
restrictions : 

1. At entry to a PL360 procedure, the procedure base register 
(usually RI5, but cf. 2.3 -7^ 6.5) must contain the procedure entry 
address and the register specified in the procediore declaration 
must contain the return address. 

2. At exit fran a correct EL36o procedure, the register specified 
in the procedure declaration will contain the return address. 

In addition, the following points should be noted: 

1. If the PL560 program was compiled from a statement and not a 
global procedure declaration, 

a. the symbolic name of the entry point will normally be 
SEGNOOl, the symbolic name of the implicit data segment 
(with base register R13) will normally be SEGaiOOO (cf . 6.5) ; 

b. the return register will be Rlk; 

c. at entry, R15 must contain the address of an 18 word save 
area, if the $0S option is in effect (cf . 6.5) ; 

d. at exit, all registers are restored ftom this save area. 

2. Immediately prior to exit from a PL56o procedure, RI5 may be 
loaded with a return code. 

3. Global and external names violate the rules of scope established 
by the PL360 block structure (cf= 2. 2. it-). By pairing global and 
external declarations, a name can be given arbitrary scope. 
Recursive procedures and coroutines can be programmed using this 
feature; however, this ability should be used carefully and 
sparingly. 
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Consider the following example. 

global procedure PI (Rl) ; 

begin global data Dl base RIO; 
integer A; 

global procedure P2 (R2) ; 
begin RO := A; 
end ; 

global procedure P5 (R2) ; 
begin external data Dl base RIO; 
integer A; 
RO := A; 
end ; 

RO := A+1; 
end. 



The procedure P2 can be entered 
with the base register for data 
segment Dl incorrectly loaded, 
since it is possible to bypass 
the entry code of the block 
containing the base declaration. 
In procedure P5, however, the 
external declaration causes register 
loading, but all declarations must 
be repeated. In general, procedures 
which are to be entered independently 
should be declared as separate 
programs whenever possible. 



It should be noted that the registers specified in corresponding global 
and external procedure declarations must be identical, while the registers 
specified in corresponding global, external, and common data segment 
declarations may be different. 
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8. Operating System interface and Configuratioxi Requirements 

The EL560 compiler contains no direct calls to an operating system, 
nor does it contain any code dependent upon any specific operating system 
environment. Instead, subroutines which interface with a particular 
operating system must be separately assembled and merged with the compiler 
object modules by suitable linkage editing. Consequently, any operating 
system using 360 standard object modules (e.g. MTS, OS, BOS, TOS, DOS) 
can accommodate the compiler. The PL360 compiler uses the following 
external names for entry points to such routines: 

READ SYSHJIT 

WRITE SYSTERM 

BMCE 

The following infonnation is intended to facilitate the writing of 
appropriate subroutines. 



■^ • J- l\Cg,ioLn. 



The following conventions apply to all the above entry points: 

1. RI5 contains the address of a standard 18 word save area. 

2. Rlif contains the return address. 

5. RI5 contains the address of the entry point. 

In addition, other registers and the condition code are used for input or 
output parameters in those cases specified below. Before return to the 
PL56O compiler, all registers (except RI5 and any output parameter 
registers) must be restored. 
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.2 SubroTit ine Specif icat ions 

1. SYSINIT 

Function: system initialization, including 

a. any required parameter list decoding, 

b. opening required data sets, 

c. obtaining free storage (at least 12,000 bytes), 

d. supplying system or job identification. 
Input: none supplied by EL56o. 

(Registers R1-R5 will be unchanged from the point of 
entiy to the compiler.) 
Output: Rl — address of a l6 byte character string to be 

used as identification in ccsnpilation listing 

headings . 
R5 — address of first byte of free storage available 

for use by the compiler. 
rU — address of first byte past the end of the free 

storage area supplied. 
R15 -- set to #FF if the $0S option is to be used, 

set to of the $DOS option is to be used 

(cf. 6.5). 

2. SYSTERM 

Function: system termination, including 

a. release of free storage, 

b. closing required data sets. 

Input : none 

Output: R15 is set to if the object module output fron the 
compiler was discarded by the HJNCH routine. RI5 
should be set to some nonzero value if this is not the 
case. The compiler uses this information in setting 
a return code when it terminates. 
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5. 



READ 
Funct ion : 

Input: 

Output: 



WRITE 
Function: 



Input: 
Output : 

PUNCH 
Function; 

Input : 
Output: 



transmission of a card image record to the compiler 

(source prograjn inpj.t^ = 

RO -- address of 80 byte buffer into which the record 

is to be moved. 
Condition code set to 

2 if no record was transmitted (input file exhausted), 
otheiTfise. 

transmission of a line image record from the compiler 

(listing output) . 

Records are 133 bytes in length; the first byte is a 

USASI control character (" ", "0", or "1")^ and the 

last 12 bytes may be ignored without substantial 

information loss. 

RO -- address of 133 byte output record. 

none 

transmission of a card image from the compiler 

(object module output) . 

RO — address of 80 byte output record. 

none 



8.3 Linkage to the Compiler 

The EL360 compiler assumes the calling conventions outlined in 8.1. 
That is, the compiler is always compiled with the $0S option (cf . 6.3) . 
Parameters to be interpreted by SYSHTIT can be supplied in Rl through R5. 
Upon exit from the compiler, 

1. RI5 is set to 16 if any ccanpilation errors were detected, to 8 

if the return code from SYSTEEM is 0, and to 2k if both conditions 
exit; otherwise RI5 is set to 0. 

2. all other registers are restored. 
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Q.k Configuration Reg-air ements 
The compiler requires : 

1. A System/360 processor with at least the scientific instruction 
set. 

2. At least 52,000 bytes of main storage (for the compiler and free 
storage used for table space) plus whatever is required for the 
interface module and input -output buffer space. 

5 . A reader and either a punch or a device accommodating 80 

character records with EBCDIC encoding. 
h. A printer or device accommodating 153 character records with 

EBCDIC encoding of the EL/1 60-character print set. 
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9- Use as an OS Language Processor 

This section describes the use of the PL360 compiler, with the 
standard interface rcfutines, in the environment of Operating System/560 

and processor options similar to those for the IBM OS Assembler (E, F) . 



9-1 Data Set Requirements 

The PL560 compiler uses the data sets described below, identified 
by the DDKAMEs required. All data sets are sequential with fixed blocked 
format. Unless supplied by the system or by data set labels, DCB parameters 
for physical block size (BLKSI^) and ramber of buffers (BUFNO) naist be 
specified in the DD statement, except for SYSPRIKT and SYSHJICH. These 
two data sets will use a default block size equal to the logical record 
size if no value is specified elsewhere. Through selection of compilation 
options (cf . 9.2), reference to any or all of the output data sets can be 
prevented. In such cases, no corresponding DD statement is required. 

1. SYSIN 

This data set, consisting of compiler instructions (e.g. $NOLIST) 
and one or more PL560 source programs, constitutes the input to the 
compiler. The logical record length is 80 bytes. Concatenation of 
data sets with \anlike attributes is supported; however, space for 
buffers and access method routines must never exceed that required 
for the first of the concatenated data sets. 

2 . SYSPRINT 

This data set contains the compiler output listing, including 
all diagnostic messages. The logical record length is 155 bytes; 
the first byte of each record is a control character. 






5 . SYSHJNCH 

This data set contains compiler output in the form of a sequence 
of object modules. Seme or all of the object modules corresponding 
to programs in which errors were ri<=.+.fic+Ar! la-i n -ho ™-i co ■,•»,„ mv,^ 
logical record length is 8o bytes. The data set is closed with a 
disposition of LEAVE. 

h. SYSGO 

This data set contains object module output identical to that 
described for SYSHINCH. It is closed with a disposition of REREAD 
for further processing, such as linkage editing. 



9 '2 Processing Options 

The production of listing and object module output by the compiler is 
controlled explicitly by compiler instructions (cf . 6.5) or implicitly 
(through error detec^lon; Dy the input stream. Independent control of the 
transfer of this output to OS data sets is provided by the following 
compiler options, which can be specified in the FARM field of the job 
step EXEC statement. In each case, the unqualified parameter causes 
transfer to the indicated data set; the prefix "NO" inhibits such transfer. 

Options Data Set 

LIST, NOLIST SYSPRINT 

LOAD, NOLOAD SYSGO 

DECK, NODBCK SYSHMCH 

LOAD and DECK options are not mutually exclusive. Options may be specified 
in any order; in the case of conflict, the rightmost specification is used. 
Default options are equivalent to 

PARM=' LIST, LOAD, NODBCK' 
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9-5 Retiirn Code 

The return code supplied by the compiler is > if any errors are 
detected, or if the $NOGO directive (cf . 6.3) is detected, or if the NOLOAD 
option is in effect, otherwise ^cf^ 8=5^= 



^.k JCL Statements 

The catalogued procedure used at Stanford is listed in this section 
as an illustration of typical Job control language. At Stanford, the 
compiler is available as a load module in the partitioned data set 
T123.ELLIB on SYS21. The input -output routines and other run-time object 
modules which may be used by EL36o programs (cf . 13) are available in the 
SYSLIB partitioned data set T123.PLSYSLIB on SYS21. The linking -loader 
automatically accesses this library to resolve external references. To 
compile, link and execute a PL36o program using the catalogued procedure, 
the following JCL is sufficient: 



//testprog job ... 

// EXEC PL3dOCG 
//PL360.SYSIN DD * 

[Hj36o source programs] 

/* 

//GO.SYSIN DD * 
[data] 

The text of the catalogued procedure follows: 

//PL360 EXEC PGM=PIi360 

//STEPLIB DD DSN-T123.PtLIB,UKIT=23li^,V0L=SER=SYS21,DISP=0LD 

//SYSGO DD DSN=SYSl.UT2,UNIT=25lii-,DISP=(0LD,PASS), 

// DCB=(KEyLEK=0,BLKSIZE=l600) 

//SYSPRINT DD SYSOUT=A 

//SYSPUNCH DD SYSOUT=B 

//go exec PGM=LOADER,PAEM='MAP',COKD=(0,NE,EL56o) 

//SYSLCOT DD SYSajT=A 

//SYSLIN DD DSN=*.PL360.SYSGO,DISP=(OLD,KEEP) 

//SYSLIB DD DSN=a?123.HiSY&^IB,DISP=OLD,UWIT=23l4,VOL=SER=SYS21 

//SYSPRINT DD SYSOUT=A 

//SYSPUITCH DD SYSOUT=B 

//SYSUDIMP DD SYSOUT-A 
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9.5 Library 

The standard procedures described in Sections 6.1. it- and 15 are included 
in the SYSLIB library. The input -output subroutines all use the queued 
sequential access method (QSAM) . The unit record input-output routines 
assume rxxea oxocjiea recoratj. a uexa,u-Lo va,j.uc ciiuaj. u<^ uix^^ j.^g,j.v,M,j. j-^v-v^j-v* 
size is used for the block size unless one is supplied by data set label 
or by the DCB parameter BLKSIZE of the corresponding DD statement. The 
ddname correspondences for these proced-ures are: 



Procedure 

READ 

WRITE 

PAGE 

PRIKT 

PUNCH 



ddname 

SYSIK 

SYSPRINT 

SYSPRIWr 

SYSPEIHT 

SYSHJNCH 



The other input-output routines assume nothing about the DCB 
information. This information must be supplied either by data set labels 
or by the DCB parameters in the DD statements. Corresponding ddnames are 
chosen by the programmer. 

Abnormal termination of a job (ABEND) may occur with these subroutines 
in the following situations: 

ABEND UOO95 A unit record file could not be opened upon the first 
occurrence of a READ, WRITE, PRINT or HJWCH. 
A READ was attempted after reaching an end- of -file. 
An attempted OPEN was unsuccessful. 

A GET, PQT or KLOSE was attempted with an unopened DCB. 
A GET was attempted after reaching an end-of-file. 

If a SYSUDUMP DD statement is included for the job step, a dump will 
follow the above ABENDS. 



ABEND 


UOO96 


ABEND 


UOO97 


ABEND 


UOO98 


ABEND 


UOO99 
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10. Use as a DOS Language Processor 

This section describes the use of the PL560 compiler with the standard 
interface routines, in the environment of the Disk Operating System/360 
(DOS) . 



10.1 System Configuration Requirements 

The Disk Operating Syston is usually used on small 560 machines. The 
PL560 is an "in core" compiler and cannot he run on many of the smaller 360 
computers due to the core memory requirements. The PL560 compiler together 
with the DOS interface and buffer space require approximately 55,000 bytes 
of core memory. Since DOS requires about lOK of memory, this dictates a 
minimum memory capacity of 6Uk for running Hj56o. 

Following is a list of the logical files used by the DOS-PL560 interface. 
These files are usually assigned to the proper devices; however, default 
assignments can easily be overridden with jdh control statements. 

1. SYSIPT 

This file contains the primary input to the compiler; namely 
compiler instructions (e.g. $N0LIST) and one or more PL560 source 
programs . 

2 . SYSPCH 

This file is used for compiler output in the form of a sequence 
of object modules. Some or all of the object modules corresponding 
to source programs in which errors were detected will be missing. 

3 . SYSLST 

This file is used for the compiler output listing, including all 
diagnostic messages. The record length is 153 bytes and the first 
byte of every record is a control character. 

h. SYSMK 

This file receives object module output identical to that 
described for SYSPCH except that it is written in the special variable 
record length format required by the DOS linkage editor. It is assumed 
by the interface that this file resides on a 231^ disk; hcwever, this 
assumption can easily be changed (to a 2511, for example) in the source 
code of the interface. 
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10.2 Processing Options 

The production of listing and object module output by the compiler is 
controlled explicitly by compiler instructions (cf. 6.3) or implicitly 
(through error detection) by the input stream. Independent control of the 
transfer of this output to DOS files is provided by the following ccanpller 
options, which can be altered through the first three bits of the UPSI 
byte. In each case, the unqualified option cuases the transfer to take 
place; the prefix "no" inhibits the transfer. 

Options File Name 

list, nolist SYSLST 
load, noload SYSLNK 
deck, nodeck SYSICH 

The default options are (list, load, nodeck) . These default options can 
be changed with the job control statement 

// UPSI ijk 

where i, j^k may be either or 1 : 

- take the default option, 

1 - reverse the default option. 

If no UPSI statement is included in the job control input stream, then 

// UPSI 000 
is assumed. The load and deck options are not mutually exclusive. 



10.5 JCL Statements 

The following sample of job control statements which can be used for 
invoking the PL360 compiler, link editing the output and executing the 
resulting program assume that the ccmpiler is available in the Core-Image 
Library \mder the name PLDOS (digits cannot be used in the name, unfortunately), 
the elementary unit record input-outprut subroutines (READ, WRITE, PRINT, 
PAGE, PUNCH) and CANCEL are available in the Relocatable Library under the 



name EL560IO, the tape and disk input -output subroutines (OPED!!, GED, 
HJT, KLOSE) are available in the Relocatable Library under the name 
FLTAPEIO, and the run -time library (cf . 15) is available in the 
Relocatable Library under the name RUNLIB. 

// JOB [jobname] [comments] 

// UPSI ijk 

if any, (cf. 10.2) 

// OPTION TlINK ^ 
\CN2ALJ 

If the linkage editor is to be used, this statement must be 
included. The option LDJK is for compile -and-go jobs, while 
the CNSAL option also retains the core-Image module and catalogues 
it in the Core-Image Library. 

// PEASE [program name],S+m 

This statement is necessary only if option LINK or CATAL are in 
affect. The integer m is set equal to 80£ where I is the 
number of standard data set labels to be processed dxoring the 
E5CBC step. 

// EKBC PLDOS 

This statement invokes the PL560 comrpiler. 

[source program] 
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The following statements are necessary only if option LINK or 

CATAL are in affect. 
INCLUDE PL560IO 

Includes the READ, WRITE, PAGE, PUNCH, PRINT and CANCEL subroutines. 
INCLUDE PLTAPEIO 

Includes the OPEN, GET, HJT and KLOSE subroutines. 
INCLUDE RUNLIB 

Includes the run time library of subroutines (cf . 15) . 
ENTRY 
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// EXEC IMKEDT 

This invokes the linkage editor. 
[JCL for particular input -output requirements of the job; for 
example, label processing, etc.] 

// EXEC 

This executes the core-image module produced by the linkage 
edit or . 
[card input for the program, if any] 

/& 

A typical job with lineprinter output and no input would have a deck setup 

as follows: 

// JOB TESTJOB 

// OPTION LINK 

// HIASE T,S 

// EXEC PLDOS 

[source program} 

INCIUDE H.560IO 
ENTRY 
// EXEC LDIKEDT 

// EXEC 
/& 



10. i+ DTE Tables 

This section describes the conventions which must be followed when 
coding DTF macro instructions for the tape and disk input -output subroutines. 
(Refer to [1^1-] for a complete description of the necessary macro instructions.) 

Generally, the only macro instructions needed are: DTEMT (Define The 
File for Magnetic Tape), MTMOD (Magnetic Tape input/ output control section 
MODu le) , and DTFSD and SDMODxx for sequential disk files. The DOS routines 
for GET and HJT require the following conventions in declaring the DTF 
table: 

EOFADDR - ENDRDR, 

lOREG = (2) . 
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Since the DTF macro instruction is assembled by the IBM assembler as a 
separate module, an 

EKTHN ENDRDR 
statement must be included in the assembly. EHDEDR is actually a subroutine 

in the PLTAPEIO module. 

The name of the DTF table must be accessible to yo-ur FL560 program. 
Thus, it must be specified as an ENTRY point. The easiest way to access it 
in the PL56o program is with an external procedure declaration. For example, 
if the DTF table is called INFILE, one might code 

external procedure INFILE (Rl^) ; null ; 
integer DTFADDR = @@ INFILE; 
in the declarations of the PL560 main program. An external data declaration 

may be used instead. 

If variable -length records are to be written, the RBCSIZE paj?ameter 
must be used with its value being the maximum possible length of a record. 

Also, 

VAEBLD = (5) 

must be specified. The PUT subroutine uses these parameters as follows: 
If the remaining length in a buffer becomes less than RBCSIZE, a TRUITC macro 
instruction is automatically issued to write the physical block ajid the 
subsequent record is started at the beginning of the next buffer area 
(lOAREA) . 

The example on the following page is for variable -length input from 
magnetic tape with blocks of at most itOOO bytes. The subroutine that actually 
does the input is called a "logic module" and is generated by the MEMOD 
macro instruction. When expanded, this assembly produces 51^ card images. 
Assembly time on a model 30 is about 5-10 min. The necessary job control 
language has been included in the example. Notice that buffer areas must 
be explicitly declared. 

If you are not familiar with the hazards of writing these macro 
instructions, be very careful and read every word of the instructions 
contained in the Supervisor and ID Macro Manual [1^]. 
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// Tr\Ti XrNA.QM 

// OPTION LOG, DECK, LIST, XREF 

// EXEC ASSEMBLY 

IWFILE DTEMT BLKSIZE=k)OU, X 

DEVM)DR=SYS010, X 

EOFADDR=ENDRDR, X 

FILABL=STD, X 

ERROPr=IGWORE, X 

HDRIEFO=YES, X 

IOAREAl=PACKm, X 

10MEA2=PADKm2, X 

I0BEG=(2) , X 

MODNME=IJTVZZZY, X 

EDOHLY^^YES, X 
EBCFORM=VARBLK 
EXTRN EKDKDR 
ENTRY INFILE 

PACKTN DS UoohC 

EACKIN2 DS i^-OOte 

I.IFVZZZY MTMOD ERROPr=YES, X 

RDONLY=YES, X 

READ=FORWARD, X 



RECFORM=VARBLK 



END 
/& 
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10.5 Library 

The standard procedures described In Sections 6.1.14- and 15 are 
available for the DOS operating system. The input-outpat subroutines all 
use the sequential access method (SAM) . 

Abnormal termination of a job may result from any of the following 
conditions: 

1. A EEAD or GET was attempted after reaching an end-of-file. 

2. An attempted OPEN was unsuccessful. 

5. A GET, PUT or KLOSE was attempted with an unopened file. 

Any of these conditions will result in a core dump. 
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11. Use as an MTS Language Processor 

This section describes the use of the EL560 compiler, with the 

c»+a-nrlQ-»»r1 -i n+-.pT<-PQi-> o T«mTh-ineis! -in +-.Vip onVXrOnneTt'- <^'f +.Vlf» yfVR rVn^Tnt; T ncr 

System. 



11.1 Data Set Requirements 

The EL560 compiler uses the logical files SCAEDS, SEEttNT and SHMCH 
and the device PUTJCHl. 

1. SCAEDS 

This input file consists of compiler instructions (e.g. $NOLIST) 
and one or more Hj560 source programs. 

2. SPRINT 

This file contains the compiler output listing, including all 
diagnostic messages. 

5 . SHMCH 

This file contains the object modules output by the compiler. 
Some or all of the object modules corresponding to programs in 
which errors are detected will be missing. 

h. PUNCHl 

Provides the object modules on cards (batch runs only). 



11.2 Processing Options 

The production of listing and object module output by the compiler 
is controlled explicitly by compiler instructions (cf . 6.3) or implicitly 
(through error detection) by the input stream. Independent control of these 
data transfers is provided by the following compiler options, which can be 
specified in the PAR field of the $RIJW command. In each case the 
unqualified parameter causes the transfer to take place; the prefix 'NO' 
inhibits the transfer. 
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Options File or Device 



LIST,NOLIST 


SPRINT 


LOAD,NOLOAD 


SPUHCH 


DECK.NODECK 


RINCHl 



The DECK option is available only in batch inns; LOAD and DECK are 
not mutually exclusive. Options may be used in any order^ in case of 
conflict the rightmost specification is used. The default options are 

PAR=LIST, LOAD, NODBCK 



11.3 Mrs Library 

The procedures BEAD, WRITE, PAGE and HJNCH described in Section 6.1.k 
are included in the file *PL560SLIB. An alternative version of the procedoire 
WRITE is available in ms, its specifications correspond to those for the 
procedure WRITE used by the compiler. This version of WRITE together with 
READ, WRITE and PAGE are available in the file *PL560LIB. 



11. U MTS Commands 

1. To compile in the batch (source on cards, listing to the 
printer and the object program to a temporary file -T ) : 
$RU1T *PL360 SHJNCH= -T 

2. To compile frcan a terminal, (source on a file MySOURCE, 
listing to a file MYLISTING and object program to a file 
MIOBJECT) : 

$RIM *PL360 SCARDS^/nrSOURCE SPRim!=Mn,ISTIWG SRJMCH^^OBJECT 

3. To execute the program created in Example 2, using the standard 
library taking data from *SOURCE* and sending printed output to 
a file RESULTS: 

$RUN MYOBJECT+*PL360SLIB SPRINT =RESULTS 

When working from a terminal the compiler directives $0 and $KOLIST can be 
used. Only error messages (and their program context of one line) and one 
line summaries of the coding for each segment are produced. 
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12. Use as an Orvyl Language Processor 

This section contains a brief narrative description of how one uses 
the interactive version of EL560 which runs tmder the Orvyl time-sharing 
monitor [15]. This version is made possible through a special Orvyl-F156o 
interface module written in Assembly Language using the Orvyl macro 
instructions [ 13 ] . 



12.1 Using the PL56o Compiler with Orvyl 

This section assumes that the Orvyl system is being used at Stanford 
where the Orvyl-PL360 compiler is saved in object module form in the 
Wylbur data set T123.PL360 on SyS21. To use it, just type: 

USE &T123.PL360 ON SYS21 LOAD 

You will then receive the message: 

-WELCOIffi TO PL360 

DO YOU WANT M OBJECT DECK? 

If your account has been activated for Orvyl files, then you can type 
"YES" and PL360 will respond with: 

FILE NAME? 

You should then type the name of an Orvyl file in which PL360 will place 
the object modules from subsequent compilations. This file can be either 
new or old. The next thing PL360 asks is: 

DO YOU WANT A LISTING? 

If you respond "YES", then you will again be asked to supply a file name. 
Thus, the listing is placed into an Orvyl file. The final question asked 
by PL360 is: 

DO YOU WANT WYLBUR? 

If your response is "NO", you will get the message: 

BEGIN TYPING PL560 PROGRAM 
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You can begin typing a PL560 program and each line will be compiled as 
you go. Unfortunately, if you make a mistake, you must start over since 
the old lines are not saved. For this reason, it is usually best to compile 
from a Wylbur working dataset. To do this, say "YES" you want Wylbur and 
PL560 will give the prompt 



You can now type Wylbur commands which will be passed to and executed by 
Wylbur. You can continue to pass commands to Wylbur (for exaiirple, you 
collect lines, edit lines, use files, copy files, etc.) until your 
Wylbur working data set contains a PL560 program. You then type "COMPILE" 
immediately after a -? prompt and PL360 begins compiling the program 
contained in your Wylbur working data set. 

Any error messages and the line on which they occur are printed at 
the terminal as the compilation proceeds. Each time a segment is closed 
a message is printed at the terminal. 

When compiling from a Wylbur working data set, the compiler terminates 
at the end of the data set and types 

-LEAVING EL560 

When typing the program in directly, you can leave EL360 by typing a 
"/*" in the first two columns of a line. As you are leaving EL360, the 
Orvyl core memory and your Wylbur working data set are cleared automatically. 

If the program you are ccsnpiling has numerous errors and you wish to 
suppress the typing of error messages at the terminal, then simply hit the 
ATTN button at the terminal. Orvyl will respond (as usual) with 

DO YOU WANT YOUR PROGRAM? 

Respond with a "YES" . PL560 will then ask: 

DO YOU WANT FURTHER ERROR MESSAGES TYPED? 

You can respond to this question with either a "YES", "NO" or by hitting 
the ATTN button. The ATTN button will cause PL560 to terminate and return 
you to Wylbur. A "NO" will cause the compilation to continue with no 
error messages typed at the terminal. A "YES" will cause the compilation 
to continue as before. In either case, (except for ATTN) the listing 
produced in the Orvyl file (if any) will be unaffected. 
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After leaving PL560, you can get the object deck by typing 

GET (file name) CARD 

You may get the listing by typing 

GET (file name) ERIHx CLEAR 

The listing has 155-byte records, the first byte of which is a carriage 
control character. Thus, when the listing is printed offline, the 
following Wylbur command should be used: 

LIST OFF BUT XXX UM (O) 

The (O) part of the LIST command causes the first byte to be treated as 
a carriage control character. The resulting lineprinter listing looks like 
any other PL560 ccsnpilation listing. The Orvyl version of PL560 has 
several advantages: Waiting for the batch queue is completely eliminated. 
Syntax error messages are printed at the terminal, thus syntax errors can 
usually be fixed immediately and another compilation can be made within 
a minute or two. Paper is saved since listings with syntax errors are 
seldom made. Finall'^'', the Or\'^''l versions of the "RFATi and WRITE routines 
can be used to run and test the program immediately at the terminal. 
In this way, Orvyl' s debugging tools can be used and debugging takes far 
less time. 

Most short compilations can be done in about a second or two of Orvyl 
compute time (less than 50(^) . This is a significant savings over batch 
compilations. The PL560 compiler, which is about 2700 cards long, compiles 
in 37 seconds of Orvyl compute time at a cost of about $6.20. 



12.2 Input-Output Subroutines for Interactive PL560 Programs 

Standard input -output subroutines using the same linkage conventions 
as the READ and WRITE subroutines described in Section 6.k are available 
for input-output operations directly at the terminal when running a PL360 
program under the Orvyl monitor. A description of the parameter passing 
conventions of these subroutines foJJLows: 
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READ The address of a 132 byte buffer should be provided in RO 
prior to calling READ. Upon ret\irn, all registers are 
preserved except R15 which contains the number of non-blank 
characters typed by the user (counting imbedded blanks) . 
All details such as error messages for illegal use of tabs 
or waiting too long to respond are taken care of by the READ 
subroutine. If a "/*" has been typed in column 1 then the 
condition code is set to 2, otherwise it is set to 0. 

WRITE This subroutine works exactly like the subroutine described in 
Section 6.k. I.e., the address of a 152 byte buffer is passed 
through register RO and all registers are preserved upon retiirn. 

The following discussion assumes that the Orvyl system is being used 
at Stanford where the Orvyl READ and WRITE subroutines are stored in object 
module form in the Wylbur file T125.PL5 60.10 on SYS21 and the library 
subroutines listed in Section 15 are stored in T125.PL560.RUM1IB on SYS21. 
To run a PL560 program in Orvyl, just follow this simple procedure: 
First, COTipile the program. This may be achieved either in batch or with 
the Orv:;,'-! version of PL56o. Put the object module output of the FL360 
compiler in a Wylbur working dataset and type: 

COFY ALL TO END FRCM &T 125. EL3 60.10 ON SYS21 
LOAD TEXT 

Your program will then begin execution. 
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13. The Run-Time Library 

This section describes a set of global procedures written in PLJbO 
which perform commonly needed tasks. These subroutines are not predeclared 
as external procedures in the FL36o compiler; thus they must be explicitly 
declared in the calling program. In all cases, the procedure linkage is 
done with register Elk, and EI5 should contain the address of the entry 
point upon entry. At Stanford, the linkage editor automatically adds 
the required subroutines if you are using the catalogued procedure 
PL360CG (cf. ^.k). 

13.1 Number Conversion Procedures 

The two subroutines described below are used to convert the EBCDIC 
representation of a number into an internal representation of that number, 
or vice-versa. A slightly more conventional number representation is used 
by these routines than that of the EL360 language (cf. 2.2.2). The 
nvimbers must satisfy the following syntax: 

(long complex number) ::= (long real number) + (imaginary n\miber)L 

(complex number) ::= (real n-omber) + (maginary nijmber) 

(imaginary number) : := (real number)I | (integer number)I 

(long real number) ::= (real number)! | (integer ntmiber)! 

(real number) ::= (unsealed real) | (unsealed real) (scale factor) | 

(integer nimiber) (scale factor)] (scale factor) 
(unsealed real) ::= (integer number), (integer number) j 

. (integer mmiber) | (integer number) . 
(scale factor) ::= '(integer number)] ' (sign) (integer number) 
(integer number) ::= (digit) j (integer number) (digit) 
(sign) ::=+]- 

Numbers are interpreted according to the conventional decimal notation. 
A scale factor denotes an integral power of 10 which is multiplied by the 
unsealed real or integer number preceding it. A number can have no 
imbedded blanks and must be delimited by a blank. 

The parameter passing conventions for the two conversion subroutines 
are as follows : 
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VALTOBCD This procedure converts an internally stored value to an EBCDIC 
representation. At entry, 

Rl contains the address of an area to receive the EBCDIC 

representation 
R2 indicates the type: 

1 = integer 

2 = real 

5 = long real 
h = complex 
5 = long complex 
R5 contains the field length ( > 1 ) 

The value to be converted is in either RO, FO, FOl, FO and F2, 
or FOl and F23, depending upon the type. 

A retiirn code is left in R15: 

=> successful conversion 

1 => field size too small 

2 => invalid fields ize 

When the field size is too small to receive the value, the 
field is filled with stars (*) . 

All registers, except RI5, are preserved. 



BCDTOVAL This procedure converts an EBCDIC representation of a number 
to an internal number. At entry. 

El contains the address of the EBCDIC representation (possibly 

preceded by blanks) 
R2 indicates type (see above) 

The resulting value is left in either RO, FO, FOl, FO and F2, 
or FOl and F23, depending upon the type. 
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A return code is left in RI5: 

=> successfal scan 

1 => invalid character in input string 

2 => missing "I" on imaginary part 
5 => nonblank delimiter 

h => number scanned is not assignment compatible 
(e.g., a decimal point is found when R2 == l) 
5 => integer too large 

Upon exit, Rl contains the address of the delimiter. 
Registers R2-Rll4- are restored. 



15.2 Data Manipulation Procedures 

The first procedure described in this section does an in-core indirect 
sort using logical comparisons. The second procedure is a ccmpanion routine 
which searches a sorted list for a specified element. 

SHELSORT This procedure sorts character data. The Shell sort technique 
is used. At entry, registers R0-R5 must be set as follows: 

RO = the number of items to sort 

Rl = the address of the index array 

R2 = the nximber of the first byte of the key in each record on 

which the sort is to be done. (R2 >= 1) 
R3 = the nimber of bytes in the key on which the sort is to be 

done. 

The index array is a list of i4-byte integers containing the 
addresses of the items to be sorted. The actual sort is done on 
1;hf^ elements of the index array and not the records thamealveg, 
Tliat XL'., oiii,y the order of the elements of the index array is 
modified by the procedure. All registers are restored. 
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BISEAECH This procedure locates an element in a sorted list. At entry, 
registers RO-R^t must be set as follows: 

RO = the number of entries in the sorted table 

Rl = the address of the index array (see above) 

R2 = the nxtmber of the first byte of the key field in the records 

R5 = the number of bytes in each key field 

R^l- = the address of the key for which you are looking 

At exit, Rl contains the address of an element in the index 
array that points to a record that contains the desired key. 
If no match is found, Rl = . 

All registers, except Rl, are preserved. 
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ik. Format of PL36o Programs 

The following rules (except for some minor modifications) were proposed 
by Wirth [15] during the develoiment of the Algol W compiler (which is 
written in PL56o) as guidelines for producing uniformly readable FL560 
programs. They have proved helpful and effective in both programming and 
debugging. However, they must not be regarded as strict rules to be 
followed under any circumstances, but rather as guidelines to be followed 
when no stronger reasons dictate a choice. 



1^1-. 1 Indentation 

(a) Indent lines contained between begin and end by 5 spaces: 

begin . . . 

Rl : = R2 : ... 

begin . . . 

page ; RO : = ©line ; ... 

end; r6 := R5; ••• 
end ; 

(b) Do not indent after if, for , while clauses, but reserve a 
separate line for the clause, if it is followed by a lengthy statement; 

for Rl := 1 step 1 \mtil 100 do 
begin . . . 



end; 



However : 



if R0=1 then Rl := El+1; 
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(c) In the case of if then else , the two statements should he 
shown to he of equal "importance", that is; 

if R0=0 then Rl := 1 else R2 := Rl; 

if R0=0 then 
begin . . . 

• • • 

end else 
hegin . . . 

« • • 

end ; 

(d) A program sometimes consists of a few very large blocks, each 
being one or more pages long. In this case, indentation does not make 
sense because the reader cannot see that the page he is reading uses 

indentation at all. It is preferable to accompany the begin and the end 
of such a major block with a short comment linking them together with a 
common name or number. 



Ik. 2 Spacing 

(a) Spacing is a powerful tool in grouping things together which 
should be read together, and to display the structure of a statement. If 
spaces are used in the same amount everywhere, they are useless and may 
as well be omitted with the benefit of saving paper. An example may 
illustrate the idea: 

Rl := TEMP / k + SIAB9 * C ; TEMP := Rl ; 
is equally as bad as 

Rl: =TEMP/1h-SIAB9^ ;TEMP : =R1; 
Instead write 

Rl := TEMP /k + SIAB9 ^; TEMP :- Rl; 

The following rule may seem a bit absurd, but nevertheless it has 

proven useful: Use no space between single letter identifiers and operators, 

iw^-fJ-xv^x n j_k>v.« U.UW ^.^J.J.v^ *^^\M^\^* 

(b) Always use one space before and after the assignment operator. 
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1^.5 Choice of Identifiers 

(a) In general, use descriptive words for identifiers (in particular 
labels). This serves as an implicit comraent. However, if the identifier 
occurs very often, it may be advantageous to use a short (possibly one- 
letter) identifier. 

(b) In this case, the declaration must be accompanied by a comment 
explaining the nature of the quantity. 

(c) Another exception from (3a) is the case where the identified 
quantity or program location has only extremely local significance, such 
as temporary storage cells or loop labels. In this case, the one-letter 
identifier may be used to underscore the auxiliary and local role of the 
quantity or label. 



ik.k Ccanments 

(a) Comments should always be given at key points such as along 
with declarations, at block entry, in the procedure heading. 

(b) If they occur elsewhere, they may represent "snapshots"; they 
should explain relationships between variables which hold xmconditionally 
when control passes the point of the comment. Such snapshots are sometimes 
extremely useful in explaining the functioning of a program. 

(c) In EL360, comments will sometimes be necessary to explain the 
role of a sequence of "obscure" function statements. 

(d) In block- and procedure headings, it is useful to add a comment 
indicating which registers are used, or vice versa: which ones are not. 
OfH;en it is useful to indicate what the registers are used for. 
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1^-5 Miscellaneous 

(a) Declare quantities which have local significance only in the 
block where they belong. Avoid sharing of local variables, in particular 
avoid sharing "temporary storage cells" among several procedures. 

(b) Avoid labels where yoa can. This is not as easy in EL56o as 
it is in Algol. Nevertheless, use if, for , and while statements instead 
of goto statements where appropriate. When a label must be used, always 
put it in the left margin where it can be easily located. When a goto 
statement is used in a large program, it is sometimes useful to accompany 
it with a comment telling the reader approximately where the label is 
defined. 

(c) Use the appropriate type symbols when declaring variables. 
For example, do not write 

integer flag 

when that variable is never used as a number, but only as a logical 
quantity. 

(d) Avoid bit manip\alation where possible. For flags, use byte 
variables and the functions SET, RESET and TEST. 

(e) Minimize the use of functions. 

(f) Avoid the use of subscripted synonyms, such as 

integer x syn y(R2) 
It is hard to realize that the statement 

Rl := X 
uses R2 as an index registerl Of course 

integer x syn y(2) 
is o.k. 



1'?. Acknowledgments 

After the U. S. invasion of Cambodia in the Spring of I97O, a handful 
of graduate students in the Computer Science Department at Stanford decided 
to apply their programming skills to the data processing problems of 
"working within the System". We decided to do a computer analysis of pre- 
cinct data to aid a candidate in the local Congressional race. At the 
outset, we had to decide what language to use. For various reasons we 
chose PL36O. This decision necessitated the design and coding of input- 
output subroutines for tape and disk units (OPEHIT, GET, PUT and KLOSE). 
Many of our jobs were limited in speed by the input-output devices; thus, 
the DOS interface was implemented to permit "production" runs to be made 
on a small 560. Through the many nights and weekends of programming and 
running jobs, we became aware of shortcomings in the compiler, the input- 
output subroutines and the PL360 language. Many times we were in the 
position of developing and debugging the compiler, the input-output sub- 
rouuines anvj. prouj.em programs, simultaneously. As a result, I believe 
that the PL36o system has evolved into a tool that is not only elegant, 
but useful.' 

Thanks are due to Edwin Satterthwaite for many discussions and ex- 
planations about PL360 and the OS interface. 

Special thanks are due to Richard Guertin of the Spires/Ballots 
project at Stanford who recently took an interest in PL360 and made 
several improvements. His careful scrutiny of the manuscript kept many 
of my errors out of print. 

Wayne Davison, also of the Spires/Ballots project, prepared the indices 
for this manual while learning PL360 from an earlier version of the manual. 

The other students who programmed for the congressional race helped 
in many ways, especially in the design of new features and debugging. 
They are: Robert Russell, Henry Bauer and Richard Underwood. 

Out enthusiasm about PL360 was not dampened by the fact that our 
candidate lost. 



90 



16. References 

[1] N. Wirth; EL36o. "A Programming Language for the 360 Computers", 

JACM 15 (1968) 37. 
[2] "OS/360 PL360 Compiler", IBM Contributed Library (Type IV) Program 

Number 360D-03.2.011. 
[3] J. Eve: "PL360 Language Extensions", Internal Wote, Computing 

Laboratory. University of Newcastle upon Tyne. 
[h] G. M. Amdahl, G. A. Blaauw, F. P. Brooks, Jr.: "Architecture 

of the IBM System/560", IBM J. of Res. and Dev. 8 (1961^-) 87. 
[5] G. A. Blaauw et al. "The Structure of System/360", IBM Sys. J. 3 

(196i^) 119. 
[6] "IBM System/560 Principles of Operation", IBM Sys. Ref. Lib. A22-6821. 
[7] "IBM System/360 OS Assembler Language", IBM Sys. Ref. Lib. Form 

C28-6538. 
[9] Mrs Vol. I 290-0 et. seq.. University of Michigan Computation Center, 
Ann Arbor. 
[10] "IBM System/360 OS Assonbler F Programmers Guide", IBM Sys. Ref. Lib. 

Fom C26-3756. 
[11] "PL560 Programming Marnml", University Computing Laboratory, 

University of Newcastle upon Tyne, Claronont Tower, Newcastle upon 
Tyne, NEl 7RU, England, I97O. 
[12] "IBM Syst era/560 DOS System Control and Syston Service Programs", 

IBM Sys. Ref. Lib. Form C2l^-5056. 
[13] R. Fajman and J. Borgelt, "Orvyl User's Guide", Stanford University 

Computation Center, I97I. 
[Ik] "IBM System/360 Disk Operating System Supervisor and Input/Output 

Macros", IBM Sys. Ref. Lib. Form C24-5037. 
[15] N. Wirth: "Foimat of PL360 Programs", Algol W - Project Memo, 
Stanford University, Sept. 9, I966. 



91 



INDEX OF SYNTACTIC ENTITIES 



This index lists in alphabetical order by left part all the productions 
found in the text. Page numbers under the left parts refer to the loca- 
tion where the left part occurs in the text. Where no page number exists 
under the left part, check the productions defining the right parts. 



The follov/ing abbreviations are used in this index: 

assnt = assignment 

dec! = declaration 

hex = hexadecimal 

ident = ifientifler 

reK = register 

stnt = statement 

The symbol A is understood to stand for (7 
The symbol T is understood to stand for T 
Strin^js of capital letters are used in place of underlining. 

<A cell assrit> ::= <A cell designator> := <K rez> 

P 16 

<A cell designator> ::= <T cell designator> 

<A niimber> ::= <unsigned A number> 

p 9 I _ <unsisned A number > 

<A prinary> ::= <T primary) 

<alternative condition) ::= <condition> 

p 23 I <alternative condition) OR <condition> 

<ari thmet ic operator) ::= + 

P 15 I - 

! * 

I / 

I + + 



<block) ::= <block body) END 



<block body) ::= <block head) 

p 25 I <block body) <stmt) ; 

I <block body) <label definition) 
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<block head> : := BEGIN 

p 25 I <block head> <dec1> ; 

^vOyte ceil uebijjriciLijr/' ••- ni ue i i uesignawwi ^ 

<byte value> ::= "<character>" 
p 10 I <hex va1ue> X 

<case clause> ::= CASE <integer reg> OF 

p 2k 

<case sequence> ::= <case clause> BEOIN 

p 2k i <case sequence> <stmt> ; 

<case stmt> ::= <case sequence> END 
p 2ft 

(character) installation dependent 
p 10 

<character sequence) ::= <character> 

p 9 I <charater sequence) <character> 



<co!nbined condition) ::= <condition> 

p 23 I <combined condition) AND <condltion> 

<cornpound condition) ::= <cornbined condition) 

p 23 I <alternative condition) 

<condition) ::= <K reg) <relation) <A primary) 



p 22 



<integer reg) <relation) <strlng) 
<byte eel 1 > 
- <byte eel 1 ) 
<rel ation) 

OVERFLOW 



<decl) 

p 26 



<T eel 1 dec!) 

<funct ion decl ) 

<procedure decl ) 

<T cell synonym decl) 

<K reg synonym decl) 

<integer value synonym decl) 

<segment base decl) 

<segment close decl) 
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< lisl t> : := 



P 9 



1 
2 
3 
k 
5 
6 
7 



<fi11 value> ::= <T value> 



p 11 



<for clause> 
P 25 



<string> 

Q <procedure ldent> 

@(3 <procedure Ident> 

@ <T cell des!gnator> 

Q@ <T cell ident> 

<repetitlon nst> <f?ll va1ue> ) 

:= FOR <lnteger reg assrnt> STEP <increment> UNTIL <limit> DO 



<for stmt> ::= <for clause> <stmt> 






<fornat code> ::= <integer value> 

P 17 



<fractiona1 number) ::= <fnteger number) . <d!git> 
p 9 I <fractional number) <dlglt> 

<functlon decl> ::= FUNCTION <functIon definftlon) 

p 17 I <functfon decl> ^ <function definition) 

<function definition) ::= <ldent) ( <format code) / <lnstructlon code) ) 
P 17 

<fiinction designator) ::= <functlon ident) 

p 19 I <function ident) ( <parameter list) ) 

<fiinction Ident) ::= <ldent) 

P 8 



<,<;oto stmt) 
P 27 



= GOTO <ident) 



9h 



<nex di(;it> 
P 9 



<hex va1ue> 

P 9 



= <digit> 
A 
B 
C 
D 
E 
F 

= #<hex diglt> 

I <hex va1ue> <hex dlglt> 



<ident> : := <letter> 

p 8 I <ident> <letter> 
I <ident> <dig!t> 

<if clause> ::= IF <coripound conditIon> THEN 
p 23 

<if stint> ::= <if c1ause> <stmt> 

p 23 I <if c1ause> <true part> <stmt> 

<Incronent> ::= <intger va1ue> 
p 25 



< i ndex> : 
P 13 



<integer vaiue/> 

< Integer res> 

<integer reg> + <integer value> 

<Integer reg> - <fnteger value> 

<integer reg> + <!nteger reg> 

<lnteger reg> + <Integer reg> + <lnteger value> 

<lnteger reg> + <integer reg> - <Integer va1ue> 



<instruction code> ::= <integer va1ue> 

P 17 

< integer nurnber> ::= <A number> 

<integer primary> ::= <T pritnary> 

<integar reg> ::= <K reg> 

<lnteger reg assmt) ::= <K reg assmt> 

<lnte'^er va1ije> ::= <integer number> 
P 10 I <hex value> 

I <Integer value ident> 
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<lnte5er value Hent> ::= <ldent> 
P 8 

<.iritfi.f5er value synonyt'i eject/ ;;- tmuMii. ni-.jcml^ vaynwnyiinx^j intcgei v^iv-..,^ 
p 20 I <lntef?er value synonym decl> / <ldent> 

<synonymous f ntegerval ue> 

< i ten> : := < Ident> 

p 111 <ident> = <f i 11 value> 

<K primary) : := <K reg> 
P 13 

<K reg> : := <ldent> 

P 8 

<:< reK assmt> ::= <si:iple K reg assnt> 

p 15 1 <K reg assnt> <arlthmetlc operator) <A primary) 

i <integer reg assmt> <losical operator) <integer primary) 

I <integer reg assmt) <shift operator) <integer value) 

I <integer reg assmt) <shift operator) <integer reg) 

<K re<^ synonym decl) ::= <simple K type) REGISTER <ident) SYM <K reg) 
p 19 I <K reg synonym decl) , <ident) SYN <K reg) 

<lab<^l definition) ::= <ident) : 

p 25 

<letter) : := A-Z a-z 
P 8 

<limit) ::= <integer primary) 

n 25 I <short integer primary) 



<logical operator) ::= AND 
p 15 I OR 

I XOR 

<lon,'^ real number) ::= <A number) 

<lont^ real value) ::= <long real number) 
P 10 i <hex value) L 

<nona.iic operator) ::= ABS 

p IJi I NEG 

I NEG ABS 
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<i5araineter> 
V) 



= <T value> 

I <strinK> 

i <K rez> 

( Nrt (je I I / 



I <functlon designator) 

<;oara:ieter llst> ::= <parameter> 

p 19 I <parameter nst> , <parameter> 

<proce1ure decl> ::= <procedure heading) ; <stmt> 

p 28 

<procf?dure headinf^) ::= <slnp1e procedure heading) 



p 28 



<separate procedure heading) 

<separate procedure heading) BASE <integer reg) 



<i:)rocedure I dent) ::= <ident) 
P 8 



<procf3dure stmt) 
p 29 



= <procedure ident) 

I <procedure ident) ( <integer reg) ) 



< PROGRAM) : := <stnit) . 

p 26 i GLOBAL <simple procedure heading) ; <stnit) . 

i GLOBAL <siniple procedure heading) BASE <intger reg) ; <stmt 

<real number) ::= <A number) 

<rna] value) ::= <real number) 
p 10 I <hex value) R 



< re 1 at ion) : : = = 
p 22 

< 

< = 
) 
) = 

<repetition list) ::= ( 

P 11 I <integer value) ( 

I <repetitIon list) <fill value)^ 

<scale factor) ::= <integer number) 

P 9 

<se,>T!nent base decl) ::= <segment base heading) BASE <integer reg) 
P 21 
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<se,'^rient base heaulns> : 
P 21 



<Sf;f^nent close dec1> 
p 21 



SEGMENT 

GLOBAL DATA <ident> 

EXTERNAL DATA <ldent> 

uuiviivluiM UMIA vinenL/ 

COMMON 

DUMMY 



= CLOSE BASE 



<separate procedure heading> ::= SEGMENT <slrnple procedure heading) 



P 27 



I GLOBAL <s!mple procedure heading) 
I EXTERNAL <sirnple procedure heading) 



<shift operator) ::= SHLL 

p 15 I SHLA 

I SHRL 

I SHRA 

< short integer number) ::= <A number) 

<short integer primary) ::= <T primary) 

<short integer value) ::= <short integer number) 
p 10 I <hex value) S 

<sinple byte type) ::= BYTE 

p 11 I CHARACTER 

<siinple integer type) ::= INTEGER 
p 11 I LOGICAL 



<:iii'iple K reg assmt) ::= <K reg) := <A primary) 

i> lU I <K reg) := <monadIc operator) <A primary) 

I <integer reg) := <strlng) 

I <integer reg) := Q <T cell designator) 

I <Integer reg) := (d <procedure Ident) 

(simple K type) ::= <simple integer type) 

I <sinple long real type) 
I <simple real type) 

<si,i.nle long real type) ::= LONG REAL 
P 11 

<sinp1e procedure heading) ::= PROCEDURE <Ident) ( <Integer reg) ) 
p 2 7 



<sI'-iplo real typ«> ::= R^.AL 

P 11 

<3i iple siiort Inte'^er type) ::= SHORT li'JTEGFR 
nil 



<sl ipl'? st:it> 
p 2 b 



(sinple T type) 



<K re,f^ as SI It > 

<A eel 1 assi'it> 

<function desi£^nator> 

<procedure stmt> 

<case stmt> 

<block> 

<goto stmt> 

NULL 

= <slnip1e byte type> 

I <siinp1e intef^er type> 

I <sinp1e lon.p; real type> 

I <slrip1e real type> 

! <si'-iple short integer type> 



<3tnt> ::- <sl:!ip1e stnt> 

P 26 1 <if stnt> 

! <'7h ! 1r 5tnt> 

! <for stnt> 



■^ ■" t r i n ■' '> 

1) n 



<-3yii CO 1 1 va 1 ue> 
p 2 



" ^ c H a r a c t G r s e q t j o n c '"^ > " 

:= <T cell des i r^nator) - <T cell -iesipnator> 



<3ynonynous cell> ;:= 3Y'] <T cell designator) 
P 11 I SYN <integer value) 



<synonynoiis integer value) 
p 2 



SYfJ < integer value) 

SYrj <syn cell value) 

SYN <inonadic operator) <integer value) 

<synonynious integer value) <ar i thmet i c 

operator) <integer value) 
<synonymous integer value) <logical 

operator) <integer value) 
<synonyrrious integer value) <shift 

operator) <integer value) 



<T eel 1 decl ) 



= <T tyne) < i ten) 



I <T eel 1 decl ) , <itern> 



99 



P 11 ' I <T ceil Ment> ( <index> ) 

<T cell iier!t> ::= <!c!ont> 
^'p"3 "" 

<r cell synonym decl> ::= <T type> <ldent> <synonynious cell> 

p 10 I <T cell synonym decl> , <ldent> <synonymous eel 

<T primary> ::= <T value) 

P 13 I <T cell designator) 

<T type) ::= <slmple T type) 

p 11 I ARRAY <integer value) <slmple T type) 

<T value) ::= <byte value) 

I <!nteger value) 

( <lon,": real value) 

I <real value) 

I <short integer value) 

(true pc:^rt> ::= <siiiple strnt) ELSF 
P 2 3 

<unsi,";nel A nufiber) ::= <unsi,?^ned intej^er number) 

I <unsiKned lonfr real number) 

I <unsigned real number) 

i <iinsigned short integer number) 

<unsigne<l integer number) ::= <diglt) 

P 9 I <unsigned integer number) <digit> 



<unsignod long real number) ::= <fractional number) L 

P 9 I <unsigned integer number) L 

I <fractional number) ' <scale factor) L 

I <unsigned integer nuniber) ' <scale factor. 

<unsl;;nn'1 r^ial number) ::= <fractional number) 

P I <iinsigned integer number) R 

! <fractional number) ' <scale factor) 

I <unsigned integer number) ' <scale factor) 

<iinsignei short integer number) ::= <unsigned integer number) S 

P '-i 

<v/hile c"laiise> ::= vv:i|LF. <compounH conditions 00 
P 25 

< 7h ) I e stmt) ::= <wh i 1 e clause) <stmt) 
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SUBJECT INDEX 



Explanation of notation: "Syf means separate references 

nn nn. 57 anH 5S ; "'57'f'F" mo^^nc canarat-ck ro-FoKanr' A« «" "" 

57, 58, and 59; "57-58" means a continuous discussion 
spanning pp. 57 and 58; "57-60 passim " means scattered 
references from p. 57 through p. 60 — there might not 
be any reference on p. 58, for example. 

N.b.: entries for pp. 69-77 are not Included. 



@ operator, 12 
@@ operator, 12 
$ 1^9 

$BASE, 51, 58 
$DOS, 50, 62 
$LIST, «i9 
$NOGO, h%, 67 
$NOLIST, «+9 
$NOXREF, 50 
$0S, 50, 62f 
$PAGE, U9 
$TiTLE, «*9 
$XREF, 50 
$XYY#, 50 
$0, 50 
$1, 50 
$2, 50 
$5, 50 

a, 5f, \h 
Abs, 14 

Absolute addresses, 12, hi, 55 
Absolute value, \h 
Addressing, U2-U3 
And, 15 
Array, 12 
Assignment: of cells, 11, 16-17, 

37; operator, \k', of registers, 

13-16, 36 

Base address, 21, 42f, 58 
Base declaration, 21, U4, 60 
Base register, 13, 19-22 passim , 

28, hi, t*tt, 51, 57-60 passim 
Basic symbols, 5, 7-8, t»5 
BCDTOVAL, 83-8i* 
Blanks, 1+5, 82 
Block, 8, 11, 26-27, U3-tt6 passim , 

57-50 passim 
BOS, 51 
Boundary alignment, 12 



Calling conventions: 4it, 50, 63; 
for external routines, 57-58; 
for PL360 procedures, 59-60 

CANCEL, 49 

Case statements: Ih, example of, 
39 

Catalogued procedure, 67, 82 

Cells, I'h, 11-12, 16-17, 22 

Characters: set of, 10 

Comments, 5, i*9, 88 

Common base, 21 

Compiler: attributes, hSS^, 
61-6tt passim : Input records, 
U9; Instructions^ uq-51^ 65f: 
listing, 51, 65-66 passim , 78, 
80; object program output, 
Sh'SS', options, 66; performance, 
55-56. See also Source code 

Condition, 22-25 passim , 37, itO 

Condition code, 22, Ih , 29, 37, 
58, 61, 81 

Conjunction, 15 

Control facilities, 22-29 

Control section, 5t*f 

Conversion, 20 

Coroutines, 59 

Cross-reference listing, 50 

Data: common, 21, 60; external, 

21, 60; global, 21, 60; 

manipulation procedures, 8**; 

segment, tt«», 5^*, 57-60 passim 
Declarations: h, 8, 10-13, 19-22, 

27-29, ittt-U7 pg$?Ini/ 54-60 

passim. 82, 88; base, 21, 44, 

60; cell, 11-13; common, 55-59 

passirn : dummy base, 22; 

external, 54-60 oassfm ; 

function, 17-18; global, 55, 
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59; Implicit, kk-k7 oassim; 

procedure, 27-29, 57, 59; 

register, 10-11; segment, 

21-22, 5iif; synonym, 19-21 
Designators: cell, 12-13, 21; 

function, 19 
Displacement, 19, 22, U2 
Division, 16 
DOS, 61 
Dummy, 21f 

EBCDIC, 82f 

Entry point, 12, lif, 28, 51- 

62 passim , 82 
Error messages, 51-5U, 65 
Exclusive disjunction, 15 
Execute Instruction, 19 
External names, 61 
External symbol dictionary, 5i»f 



For statement, 25, kO 
Format code, 17f 
Free storage, 62, 6k 
Function statements, 17, 
58 



19/ 



GET, U7f 

Go to statements, 26ff, U3 

Inclusive disjunction, 15 

Identifiers: 8-12 oassim , k6, 
88; cell, llf, kk; function, 
17; procedure, 28f, 55; 
register, 10-11; synonymous, 
19. S££ also Standard 
IdentI f lers 

If statements, 22-2U, 37, 39 

Index array, 8Uf 

Index register, 13, 19-22 
passim 

Initialization, 11-12, 20, 62 

Instruction code, 17 

Instruction fields, 17f 

Job control language, 55-67 
P^^$ini 

K, 5f, Ik 
KLOSE, 47f 

Label definitions, 26 
Library (OS), 68, 82-85 
Linkage, 57-60, 63, 82 
LIST, k9 
Load fnodule, 67 



Loader, 
Logical 
Logical 



5Uf 

comparison, 

operations. 



22, 
15 



8£j 



MEM, 20 
MTS, 61 
mul tip! Ication, 



lb 



Neg, Ik 

Neg abs, Ik 

NOGO, k9 

NO LI ST, k9 

numbers: Integer, 9; long real, 
9ff; negative, 9; real, 
9f; conversion procedures, 
82-8U 

Null, 27, 57 

Object code, 36-Ul, 5i*-55 
Object module, 51^-55, 61-65 

passim , 78 
OPEN, It7f 
Operating system Interface, 

51-6*^ 
Operators: arithmetic, 10, 15; 

(3, 12; m, 12; dyadic, 15; 
- logical, 15; shift, 15; 
monadic, 16; precedence of, 16 
Or, 15 
ORIGIN, kO 
Orvyl, 78-81 
OS, 61-68 passim 
OVERFLOW, 22 

PAGE, tf6f, 68 

Parameter, 61ff, 80ff 

PL360 compiler. See Compiler 

Precedence. Seg Operators 

Primary, 13, 22 

PRINT, l»6f, 68 

Procedure: body, 28f, ii3, 57; 
global, 28, U3f, 51, 55, 60, 
82; external, 28, 46-51 
passim. 57, 60; segement, 28, 
51; statement, 29, Ulf; call, 
kl} calling conventions, kk; 
recursive, 59; catalogued, 
67f, 82; number conversion, 
82-8!+; data manipulation, Bk 

Program segment, 27f, k0-k3 
passim. 51-55 passim 

PUNCH, If6f, 61ff, 68 

PUT, it7f 

QSAM, 68 
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Quote marks: use of/ 10 

READ/ ii6f/ 61/ 63/ 68/ 80f 
Register conventions/ 61 
Registers/ 3, 10 
Relation/ 22 
Relative address, 12 
Relocation dictionary/ SUf 
Representation: unnormalized 

floating point/ 10/ 15; 

Internal/ 82f 
Reserved wordS/ i»5 
Return addresS/ 28f/ kl, 

57-61 passim 
Return code, 29/ 59/ 62f/ 57/ 

83f 
Run-time library/ 82-85 

Scale factor, 9 

Segment: base declarations/ 
21-22/ kk, 60; program/ 
27f/ k0'k3 passim . 51-55 
pass im : procedure/ 28; 
data/ it3f/ 5k, 57-60/ 
passim : dummy data, 5**; 
base addresS/ 55 

Segmentation, kl-kk 

Sign inversion, Ik 

Source code/ k9, 85-89. 
See al so Compiler 

Standard Identifiers: 
8, 9-10/ 17/ kS; 
register/ 10-11; 
function/ 17; in- 
teger/ 20 

Standard procedures, U6-U9, 
68 



Statement 
Storage e 
Strings, 

22, U9 
SubroutI n 

58 
Supervl so 
Symbol re 
Synonym d 
Syntactic 
SYSGO, 66 
SYS IN, 65 
SYS I NIT, 
SYSLIB, 6 
SYSPRINT, 
SYSPUNCH, 
System In 
System te 
SYSTERM, 



s, k, 26 
lements, 
5, 10-lif 



passim/ 



es, 61, 62-63, 

r services, 58 
presentation, k5 
eclaratlons, 19-21 
entitles, 5, 6-7 

, 68 
61ff 
7f 

65, 68 

66, 68 

Itlal izatlon, 62 
rmlnatlon, 62 
61ff 



3", 5f 
TITLE, 1*9 
TOS, 51 
Truncation, 



llf 



Unnormalized, 10, 15 

VALTOBCD, 83 
Values, 3-4, 9-10 

While statement, 25, kO 
WRITE, U5f, 61, 63, 68, SOf 

Xor, 15 
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